Inormé g ca 
Y PLOYIGINOLION 


 x_ETáTA. AAA A 


PROGRAMAS EDUCATIVOS 
PROGRAMAS DE UTILIDAD 
PROGRAMAS DE GESTION 
PROGRAMAS DE JUEGOS 
BASIC-Y- MAQUINA Y PASCAL Y LOGO Y- OTROS LENGUAJES 
TECNICAS DE ANALISIS Y DE PROGRAMACION 


BRO 
NUALACION 
Éuro 


E 
R 
R 
Ss 
L 
R 


ll 191919) 
a! 


Du 0 MA Y -Ow 
8d - OHTIRRDRRRTDO 
D 


e 031 Add UN Jl JAS 


mer HEIOIICIDDNA 


oa 
¡Y PDODDDDDDAZO 


| 
Y 


d-Opciones 
esunta 


PROGRAMAS EDUCATIVOS 
PROGRAMAS DE UTILIDAD 
PROGRAMAS DE GESTION 
PROGRAMAS DE JUEGOS 
Y BASIC Y MAQUINA Y PASCAL Y LOGO Y OTROS LENGUAJES Y 


Y TECNICAS DE ANALISIS Y DE PROGRAMACION Y 
y EDICIONES y SIGLO y CULTURAL y 


Una publicación de 
EDICIONES SIGLO CULTURAL, S.A. 


Director-editor: _ 
RICARDO ESPANOL CRESPO. 


Gerente: 
ANTONIO G. CUERPO. 


Directora de producción: 
MARIA LUISA SUAREZ PEREZ. 
Directores de la colección: 
MANUEL ALFONSECA, Doctor Ingeniero de Telecomunicación 
y Licenciado en Informática. 
JOSE ARTECHE, Ingeniero de Telecomunicación. 


Diseño y maquetación: 
BRAVO-LOFISH. 


Fotografía: 
EQUIPO GALATA. 


Dibujos: 
JOSE OCHOA 


TECNICAS DE PROGRAMACION: Manuel Alfonseca, Doctor Ingeniero de 
Telecomunicación y Licenciado en Informática. TECNICAS DE ANALISIS: José 
Arteche, Ingeniero en Telecomunicación. LENGUAJE MAQUINA 8086: Juan Rojas 
Licenciado en Ciencias Físicas e Ingeniero Industrial. PASCAL: Juan Ignacio 
Puyol, Ingeniero Industrial. PROGRAMAS (educat.vos, de utilidad, de gestión y de 
juegos): Francisco Morales, Técnico en Informática y colaboradores. 
Coordinador de AULA DE INFORMATICA APLICADA (AIA): Alejandro Marcos, 
Licenciado en Ciencias Químicas. BASIC: Esther Maldonado, Diplomada en 
Arquitectura. INFORMATICA BASICA: Virginia Muñoz, Diplomada en Informática. 
LENGUAJE MAQUINA Z-80: Joaquín Salvachúa, Diplomado en Telecomuniación y 
José Luis Tojo, Diplomado en Telecomunicación. LENGUAJE MAQUINA 6502: 
Jesús Bocho, Licenciado en Informática. LOGO: Cristina Manzanero, Licenciada 
en Informática. APLICACIONES: Fernando Suero, Diplomado en 
Telecomunicación. OTROS LENGUAJES (Sistemas operativos): Domingo Villaseñor, 
Diplomado en Informática, y Lenguaje C: Enrique Serrano, Ingeniero en 
Telecomunicación. 


Ediciones Siglo Cultural, S.A. 
Dirección, redacción y administración: 
Pedro Teixeira, 8, 2.2 planta. Teléf. 810 52 13. 28020 Madrid. 
Publicidad: 
Gofar Publicidad, S.A. Benito de Castro, 12 bis. 28028 Madrid. 
Distribución en España: 
COEDIS, S.A. Valencia, 245. Teléf. 215 70 97. 08007 Barcelona. 
Delegación en Madrid: Serrano, 165. Teléf. 411 11 48. 
Distribución en Ecuador: Muñoz Hnos. 
Distribución en Perú: DISELPESA. 
Distribución en Chile: Alfa Ltda. 
Importador exclusivo Cono Sur: 


CADE, S.R.L. Pasaje Sud América, 1532. Teléf.: 21 24 64. 
Buenos Aires - 1.290. Argentina. 


Todos los derechos reservados. Este libro no puede ser, en parte o totalmente, 
reproducido, memorizado en sistemas de archivo, o transmitido en cualquier 
forma o medio, electrónico, mecánico, fotocopia o cualquier otro, sin la previa 
autorización del editor. 
ISBN del tomo: 84-7688-084-7 
ISBN de la obra: 84-7688-068-7 
Fotocomposición: 
ARTECOWMP, S.A. Albarracín, 50. 28037 Madrid. 
Imprime: 
MATEU CROMO. Pinto (Madrid). 
O Ediciones Siglo Cultural, S.A., 1987. 
Depósito legal: M. 5.677-1987 
Printed in Spain - Impreso en España. 
Suscripciones y números atrasados: 
Ediciones Siglo Cultural, S.A. 
Pedro Teixeira, 8, 2.9 planta. Teléf. 810 52 13. 28020 Madrid. 
Mayo, 1987. 
P.V.P. Canarias: 335,-. 


INDICE 


él INFORMATICA BASICA 
8 MAQUINA 6502 


4 0 PROGRAMAS EDUCATIVOS 
PROGRAMAS DE UTILIDAD 
PROGRAMAS DE GESTIÓN 
PROGRAMAS DE JUEGOS 


2 3 TECNICAS DE ANALISIS 
2 6 TECNICAS DE PROGRAMACIÓN 
30 APLICACIONES 


3 4 PASCAL 


3 9 OTROS LENGUAJES 


Principios 
generales 


AS comunicaciones 
de datos se pueden 
establecer a través 
de muchas vías de 
comunicación o me- 
dios de.transmisión. 
La técnica básica 
consiste en conectar 
directamente el transmisor y el receptor 
mediante una línea de comunicación. 
Como ejemplo podemos citar la co- 
nexión entre un ordenador y un terminal. 
Cuando aparecieron los primeros orde- 
nadores, ésta era la única configuración 
posible. Pero al aumentar el número de 
prestaciones del ordenador, se hizo po- 
sible conectar más de un terminal. 

Coincidiendo con el gran auge que 
tuvo el ordenador en la década de los 
sesenta, se desarrollaron técnicas para 
conectar varios ordenadores entre sí y a 
dispositivos que actúan como enlaces 
de terminales. La interconexión de varios 
ordenadores y terminales mediante lí- 
neas de comunicación recibe el nombre 
de red de ordenadores. 

La aparición y auge de los miniordena- 
dores en la década de los sesenta y los 
setenta contribuyó notablemente al de- 
sarrollo de las redes de ordenadores. Los 


RED TELEFONICA 


INFORMATICA BASICA 


REDES DE ORDENADORES 


minis eran económicamente versátiles; 
por consiguiente, podían utilizarse como 
componentes especializados de las re- 
des. Otros tipos de redes son la red tele- 
fónica y la red postal. 

La finalidad de cualquier red de comu- 
nicaciones es transferir información entre 
dos puntos. Además de la información es 
posible, también, compartir una serie de 
recursos técnicos, como la CPU, unida- 
des de almacenamiento masivo, impre- 
soras y trazadores gráficos. Por ejemplo, 
una aplicación de predicción meteoro- 
lógica puede ser trazada por un solo pro- 
cesador o por varios procesadores ubi- 
cados en diferentes zonas geográficas. 


(u Definiciones básicas 


Una RED DE ORDENADORES se puede de- 
finir como: conjunto de ordenadores in- 
terconectados, normalmente distantes 
unos de otros, con el fin de repartir cier- 
tos tipos de recursos como programas fi- 
cheros y potencia de proceso. Al princi- 
pio se utilizaba la red telefónica para in- 
terconectar los ordenadores, y de he- 
cho, todavía se utilizan para interconec- 
tar pequeños terminales u ordenadores 
personales; sin embargo, presentan un 
grave problema: su velocidad está limi- 
tada por las características de la red. 


De hecho, en el mejor de los casos sólo 
se pueden transmitir 9600 bits por segun- 
do (bps), lo cual es muy lento. Esta limi- 
tación de velocidad es debida a que la 
red de telefonía está diseñada para 
transmitir señales analógicas que repre- 


sentan la voz y que tienen unas caracte- 
rísticas particulares; mientras que en la 
comunicación de ordenadores necesita- 
mos transmitir señales digitales, que tie- 
nen características distintas. 
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TEXTO 
DATOS 
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INFORMATICO 


una conversión de las señales binarias (utilizadas por el 


[A Para poder transmitir datos por red telefónica, es necesario hacer 


ordenador) a señales analógicas (las transmitidas por 
la red telefónica). 


La finalidad de cualquier tipo de red 
de comunicaciones es la de transferir in- 
formación entre dos puntos. El punto des- 
de el que se hace la transferencia de da- 
tos puede ser: un terminal, un ordenador, 
un teléfono, etc. Los puntos de la red 
donde se procesa la información reciben 
el nombre de nodos. 


0 


Configuración punto a punto 


Configuración multipunto 


Configuración en bucle 


La disposición geométrica de los no- 
dos que forman la red determina su con- 
figuración. La figura 3 muestra algunos ti- 
pos de estructuras, donde los distintos 
nodos pueden representar terminales de 
ordenador, microordenadores conecta- 
dos a un miniordenador o miniordenado- 
res conectados a un ordenador. 

Las configuraciones básicas utilizadas 
son: la red centralizada, la red distribui- 
da y la red jerárquica o en árbol. Combi- 
nando convenientemente estos tipos bá- 
sicos se pueden realizar otros tipos mu- 
cho más complejos. 


Red centralizada. También se conocen 
a este tipo de redes con el nombre de Es- 
trella, porque los diferentes nodos están 
conectados a través de un equipo cen- 
tral; todas las rutas del conjunto de no- 
dos que rodea al ordenador central reci- 
ben el nombre de agrupación. Las dis- 
tancias entre estos nodos que constitu- 
yen la agrupación no tiene porqué ser 
igual; de hecho suelen ser muy diferen- 
tes entre sí, dependiendo de la realiza- 
ción práctica de la red. 


lA INFORMÁTICA BÁSICA 


En una red de este tipo la potencia del 
equipo central supera a la de los orde- 
nadores periféricos. Por esta razón el ma- 
yor inconveniente de esta distribución es 
su sensibilidad a los fallos del equipo 
central, ya que de producirse una avería 
en el nodo central se interrumpe todo el 
proceso de comunicación. 

Un ejemplo típico de este tipo de contfi- 
guración puede ser un ordenador central 
conectado a varios terminales. 


A) Configuración en estrella. Red centralizada. 


Red distribuida. Este es el caso contra- 
rio al de las redes centralizadas; es de- 
cir, no existe ningún ordenador central y, 
por tanto, todos los ordenadores se re- 
parten la responsabilidad de las comuni- 
caciones; un mensaje puede pasar a tra- 
vés de varios miembros de la red antes 
de alcanzar su destino final. Lo normal es 
que cada equipo esté conectado, al me- 
nos, con otros dos más para que la co- 
municación se pueda realizar por cami- 
nos alternativos cuando una línea entre 
dos caminos esté averiada. Incluso si 
toda la línea se avería, los miembros no 
afectados pueden continuar trabajando 
mientras exista una línea en funcionc.- 
miento. 

Cuando todos los ordenadores estén 
conectados entre sí, de forma que existe 
una conexión entre cada nodo, la contfi- 
guración de la red se llama TOTALMENTE 
DISTRIBUIDA. 


Configuración totalmente distribuida. 


Como ejemplo de este tipo de red está 
la comunicación telefónica en una gran 
ciudad. Si surge algún problema en cual- 
quiera de las líneas interurbanas, el tráfi- 
co se puede desviar por rutas alternati- 
vas. 

Las principales ventajas que ofrecen 
estas redes es la flexibilidad y veloci- 
dad de respuesta, además de facilitar la 
transmisión de los datos y la comparti- 
ción de los recursos. 


Red jerárquica o en árbol. Una red je- 
rárquica o en árbol tiende a hacer con- 
verger el flujo de datos desde el ordena- 
dor menos potente al de mayor capaci- 
dad. Su estructura tiene la forma de un ár- 
bol visto desde abajo. 


Fig. 5. 


Red distribuida. En este caso ningún nodo 
centraliza el control. 


Este tipo de red es muy utilizado en 
aplicaciones industriales para supervisar 
y controlar varios procesos. Cada nivel 
del árbol ejecuta una tarea determinada 


Red en árbol o jerárquica. 


e informa a un nivel de supervisión supe- 
rior. Los nodos de nivel inferior pueden 
ser sensores acoplados a microordena- 
dores, los cuales están acoplados a mi- 
niordenadores, y éstos a su vez a uno o 
varios ordenadores. 


Razones de implantación 
de una red 


Aparte de las funciones específicas 
para las cuales haya sido diseñada una 
red, existen una serie de posibilidades 
que justifican la implantación de una red 
de ordenadores. 


1. Reparto de cargas. Ejecutando en 
varias máquinas similares cada progra- 


-—LBL 
MOFFETT ON 
10 


1) EN 
AMES16 LLL Y 
A, 1 ñ 
SA UTAH 


sr151O7 b ¡ 


E Doce 
AA a 


15172 


AFWL 
1 


ps idad 
DS 


ma de una aplicación, se consigue tener 
el mismo rendimiento sin sobrecargar 
ningún ordenador. Esto se suele utilizar en 
la puesta a punto de programas. 


2. Eliminación de datos duplicados. 
En una red es posible acceder a los da- 
tos almacenados en un ordenador des- 
de otro cualquiera, lo que elimina los 
costes de duplicación de los distintos fi- 
cheros. 


3. Flexibilidad. En muchas organiza- 
ciones se ha obligado a tener el mismo 
hardware y software con vistas a una po- 
sible “reprogramación”; si no se hubieran 
tomado estas medidas, la tarea de reor- 
ganización de cada aplicación podría 
ser enorme. La implantación de una red 
optimizaría aún más esta solución. 


4. Reducción de los costes de comu- 
nicación. La sustitución de canales de 
baja velocidad por un circuito de alta ve- 
locidad, puede producir una considera- 
ble reducción del costo. 


5. Posibilidad de combinar los medios 
disponibles. Con una red es posible com- 
binar las diferentes máquinas instaladas 
y conseguir un sistema con posibilidades 
mucho mayores que las que ofrecía la 
suma de las capacidades de cada uno 
de los componentes trabajando aislada- 
mente. 
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[A Configuración geográfica que tenía la red ARPANET en junio de 1980. 


COMMODORE 64 


a) Comandos o 
nemotécnicos 
utilizados por el 
microprocesador 


OMO ya se ha visto, el 
microprocesador del 
COMMODORE-64 tie- 
ne seis registros pro- 
pios, uno de los cua- 
les, el registro “conta- 
dor de programa”, 
puede direccionar 
2'=265536 posiciones de memoria. 

Por eso se dice que tiene un bus de di- 
recciones de 16 bits. Este valor de 16 bits 
es la dirección del próximo comando 
que el microprocesador deberá buscar 
en la memoria y ejecutar. 

También se dice que tiene un bus de 
datos de 8 bits, por lo que podrían existir 
2%=256 comandos diferentes. 

Para aquél que no le quede muy claro 
la palabra “bus”, diremos que se trata de 
unas líneas eléctricas que enlazan el mi- 
croprocesador con la memoria, ya sea 
ROM oO RAM, de esta manera se consigue 
una intercomunicación entre ambas par- 
tes. 

Veamos ahora los comandos que va- 
mos a utilizar. De las 256 posibilidades 
para obtener un comando, sólo 151 
constituyen una instrucción válida para 
el microprocesador, y de éstas 151 ins- 
trucciones hay tan sólo 56 verdadera- 
mente diferentes, lo que ocurre es que 
para cada una de ellas se pueden dar 
uno o varios modos de direccionamien- 
to. 

Vamos a presentar este juego de co- 
mandos y sus modos de direccionamien- 
to por grupos. 


MAQUINA 6502 


qu Comandos de carga 


Sirven para cargar datos desde la me- 
moria hasta un registro del procesador. 
Como éste tiene tres registros de trabajo, 
debe haber tres comandos de carga: 


LDA Carga al acumulador o ACU. 
LDX Carga al registro X. 
LDY Carga al registro Y. 


Ahora bien, ¿cómo podemos cargar un 
número a cada uno de estos registros? 
Mediante los modos de direccionamien- 
to. 


E Modos de direccionamiento 


1. Directamente y expresado median- 
te el símbolo (+) doble cruz. Esta forma 
de carga se denomina “Direccionamien- 
to inmediato” y su equivalente en BASIC 
es la instrucción, A=5, X=7, Y=9. 
$ LDA 4% $05 Carga el ACU con el valor 

05. 

LDX 4 $07 Carga el registro X con el va- 
lor $07. 

LDY + $09 Carga el registro Y con el va- 
lor $09. 


Imaginemos la instrucción LDA+$05. En 
la memoria, el comando y el valor se al- 
macenan consecutivamente uno detrás 
del otro, por lo que si se arranca un pro- 
grama en esta posición, el microproce- 
sador extraería el contenido de la prime- 
ra dirección y lo interpretaría como co- 
mando. 

A continuación saltaría a la siguiente 
posición para cargar en el registro ACU 
el valor correspondiente 05. Según esto, 
se trata de un comando de dos bytes; 
por ello, el contador de programa (PC) 
se incrementa en dos posiciones, e indi- 


ca el próximo comando que puede ser 
interpretado por el microprocesador. 

2. A través del contenido de una de- 
terminada posición de memoria, y no ne- 
cesariamente con un valor constante 
como en el direccionamiento inmediato. 
A esta forma de carga se le denomina di- 
reccionamiento absoluto: 


LDA $ CO00 Carga el ACU con el valor 
contenido en la posición $ 
C000 en hexadecimal. 


L[DX $ 0801 Carga el registro X con el va- 
lor contenido en la posición 
$ 0801. 

LDY $ 8000 Carga el registro Y con el va- 


lor contenido en la posición 
S 8000. 


Aquí puede surgir una duda: ¿cómo 
colocar el número $ XXXX en general, de 
16 bits en un registro o posición de me- 
moria que sólo tiene 8 bits? 

Nada más sencillo; descomponiendo 
dicho número en dos partes, que se de- 
nominan byte alto (HB) y byte bajo (LB), y 
almacenando primeramente la parte 
baja y a continuación la parte alta. 

Veámoslo con un ejemplo: 


LDA $ CO00 $ C000 = 49152 


Primero se almacenaría el código del 
comando LDA para este modo de direc- 
cionamiento, que es $AD=173, a conti- 
nuación la porción baja de la dirección 
$00=0 y, finalmente, la porción alta 
$CO=192. 

Así, pues, quedaría la serie SAD, $00, 
$CO, o bien, 173, 0, 192. 

La correspondiente orden BASIC es 
A=PEEK ($C000). 

Se observa que este comando es de 
tres bytes, uno para el comando propia- 
mente dicho y dos más para la posición 
de memoria de donde debe ser extraído 
el dato. 

Antes de continuar vamos a echar un 
vistazo a otro de los registros del micro- 
procesador: el registro de estado, el cual 
nos hace saber del último comando eje- 
cutado por el microprocesador, de tal 
manera que consultándole puede servir- 
nos de base para la toma de decisiones 
según los cambios sufridos en él, así 
como para la utilización de los coman- 
dos condicionales. 

En este registro cada bit tiene un nom- 
bre y un significado específico denomi- 
nándose comúnmente flags. Cada uno 


de estos flags puede estar a “cero” o a 
“uno”. 
REGISTRO DE ESTADO 
76543210 
NV-BDIZC 


Carry-C indica si en una operación se 
ha producido un desbordamiento, es de- 
cir, si en una suma se obtiene un número 
superior a 255=$FF, se activa el flag. 

Así, $FC(252) + $08(8) = $05(5) y el 
carry flag activado indicando el desbor- 
damiento. 

Zero-Z se activa (=1) cuando el resulta- 
do de una operación es cero. 

Interrupt-I. Este flag determina si están 
o no permitidas las interrupciones en un 
programa. Lo estudiaremos mejor más 
adelante. 

Decimal-D. Determina si en una adi- 
ción o sustracción se está trabajando en 
forma binaria (desactivado) o en forma 
decimal (activado). 

Break-B. Indica una interrupción debi- 
da al comando BRK, que veremos cuando 
hablemos del manejo de interrupciones. 


Overflow-V. Este flag sólo se utiliza 
cuando trabajamos con números con sig- 
no para indicar un desbordamiento. 

Negative-N. Este flag se activa siempre 
que el resultado de una operación sea 
mayor que 127, lo cual quiere decir que 
el séptimo bit del registro en cuestión 
está activado. 

Ahora ya podemos volver donde nos 
quedamos y decir que con cada coman- 
do de carga se incide sobre los flags Zero 
y Negative dependiendo del valor car- 
gado. 


3. A través del contenido de una po- 
sición de memoria en el rango de 0 a 
255, y es lo que se llama “direcciona- 
miento Zero page” o página cero. De 
esta forma sólo necesitaremos dos bytes 
para expresar el comando completo. 

El primero para el código del coman- 
do y el segundo para la posición de me- 
moria de donde ha de extraerse el dato. 

Este modo de direccionamiento es una 
particularidad de los procesadores de la 
serie 65XX, y es una gran ventaja, ya que 
en las primeras 256 posiciones de memo- 
ria se encuentran la mayoría de las varia- 
bles del sistema que pueden ser modifi- 
cadas o consultadas mediante un co- 
mando de tan sólo dos bytes. 


LDA $ 2B A = PEEK($2B) 


O Programa: 
El Ahorcado 


El primer programa 
de este octavo tomo 
nos permitirá jugar al 
famoso juego de «El 
Ahorcado». Poco hay 
que decir sobre las 
reglas del mismo, ya 
que son portodos co- 
nocidas. No obstante, y de forma resumi- 
da, las vamos a dar a continuación. 


PROGRAMAS 


EDUCATIVOS + DE UTILIDAD + DE GESTION + DE JUEGOS 


El juego consiste en adivinar una pala- 
bra que ha pensado el ordenador. Para 
ello vamos diciéndole letras. Si acerta- 
mos una letra, el ordenador la pondrá en 
su lugar dentro de la palabra. Si dicha le- 
tra estuviese repetida más de una vez en 
la palabra, el ordenador nos imprimirá 
cada vez que ésta aparezca en su lugar. 
Cada vez que fallemos el ordenador nos 
dibujará una parte del cuerpo de un 
ahorcado. El juego termina cuando el 
cuerpo está completo y, por tanto, estás 
muerto. 


AXXXXXXXXXX 


SON LAS LETRAS QUE HAS USADO- 
1,0,S < 


¡A Pantalla del programa «El Ahorcado» en 


plena ejecución. 


EEES 


* 

102 REM *  EEEEE L AMA E 
103 REM * E L A AB 
104 REM * EEE L AAAAA HHHH! 
105 REM * E L A AB 
106 REM *  EEEEE LLLLL AÑ. A 
107 REM *x : 


xk 

000 RRRR CCC AAA DDDD 000 k 
OR"... RMC UTA CAD DIO O" E 
O RRRR C AAABAD DO O: xk 
OR:B C0- TEA AD DO 0% 
000 R R CCC A AMDDDD 000 k 
xk 


II E EEE TES 


109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM x 
REM 
CLS 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


DIM P 
LET C 
LET N 
DIM U 
FOR 1 
LE 
NEXT 
LET M 
FOR 1 
LE 
NEXT 
FOR I 


MSIE 
OS 
AMSMOlaOlolololojolololok (2) Ed. Siglo Cultural AXMRXMIAMSlASIOAOIAK 
XoSIoOladlOlojalolololook. (Cc) 1987. FOIOS lOIOIOOJOROK 
FSA lll IRIS RIIRSIRSIRlIIIOIOIOK 
IMM lllallOIOIOIOIOK 


*x* INICIALIZACION DEL PROGRAMA xxx 


A E A E kk KA kk ki" 
RAR ME E ER AR 
EEE ET KAAK 
RA RARA IR REE SR 
e E E O | E E E SS kk" 


kk 
*k 
6 


$(12,12):DIM L$(20):DIM D$(20):DIM N$(27) 
5d 

=77 

(N) 

=1 TO 20 

T D$(1)="-" 
I 

=0 

=1 TO 26 

T N$(1)="" 
I 

sl: Meie 


FOR J=1 TO 12 


LET P$(1,J)=" " 


NEXT J 


NEXT 
FOR I 
LE 
NEXT 
FOR I 
LE 
NEXT 


I 

=1 TO 12 

T P$(1,1)="X" 
I 

=1 TO 7 

T P$(1,1)="X" 
I 


LET P$(2,7)="X" 


REM 
REM * 
REM 
FOR I 
LO: 
PR 
NEXT 


*xk PROGRAMA PRINCIPAL xxx 


=8 TO 23 
CATA 
INT SPACE$(40); 
I 


IF C<N THEN GOTO 160 
LOCATE 21,1 


PRINT 
LET Q 


"HAS ADIVINADO TODAS LAS PALABRAS !":GOTO 406 
=INT(N*RND)+1 


IF U(Q)=1 THEN GOTO 160 


LET U 
LET C 
RESTO 
LET T 
FOR 1 
RE 
NEXT 
LET L 
FOR 1 
LE 
NEXT 
GOTO 


(Q)=1 
=C+1 

RE 

1=0 

=1 TO Q 
AD A$ 

1 
=LEN(A$) 
=1 TO L 
T L$(1)=MID3(A$, 1,1) 
$ 

303 


LOCATE 21,1 


PRINT 
LOCAT 
PRINT 


“ESTAS SON LAS LETRAS QUE HAS USADO: 
E 22,1 
SPACES (40) 


PROGRAMAS 


178 LOCATE 22,1 

179 PRINT "> "; 

180 FOR I=1 TO 26 

181 PRINT N$(1); 

182 IF N$(I+1)="" THEN GOTO 185 

183 PRINT “","; 

184 NEXT I 

185 'PRINT-" <" 

186 LOCATE 11,1 

187 FOR I=1 TO L 

188 PRINT D$(1); 

189 NEXT I 

190 LOCATE 13,1 

191 PRINT “(QUE LETRA ELIGES?" 

192 LET G$=INKEY$ 

193 IF (G$>"Z" AND G$<"A") AND (G$>"z" OR G$<"a") OR G$="" THEN GOTO 192 

194 LET R=0 

195 FOR I=1 TO 26 

196 IF N$(I)="" THEN GOTO 199 

197 IF G$=N$(I) THEN LOCATE 21,1:PRINT "ESA YA LA HAS ELEGIDO 
“:LOCATE 22,1:PRINT SPACE$(40):FOR I=1 TO 1000:NEXT I:GOTO 174 

198 NEXT 1 

199 LET N$(I)=G$ 

200 LET Ti=T1+1 

201 FOR I=1 TO L 

202 IF L$(1)=G$ GOTO 206 

203 NEXT I 

204 IF R=0 THEN GOTO 209 

205 GOTO 211 

206 LET D$(1)=G$ 

207 LET R=R+1 

208 GOTO 203 

209 LET M=M+1 

210 GOTO 241 

211 FOR I=1 TO L 

212 IF D$(I)="-" THEN GOTO 215 

213 NEXT 1 

214 GOTO 236 

215 LOCATE 11,1 

216 FOR I=1 TO L 

217 PRINT D$(1); 

218 NEXT I 

219 LOCATE 21,1 

220 PRINT SPACE$(80) 

221 LOCATE 21,1 

222 INPUT "(QUE PALABRA ELIGES";B$ 

223 IF A$=B$ THEN GOTO 229 

224 LOCATE 21,1 

225 PRINT "NO. PRUEBA CON OTRA LETRA. ":PRINT SPACE$(40) 

226 FOR I=1 TO 1000 

227 NEXT I 

228 GOTO 174 

229 LOCATE 21,1:PRINT "LO HAS HECHO EN"; T1;"INTENTOS. ” 

230 PRINT "(QUIERES OTRA PALABRA? (S/N)" 

231 LET W$=INKEY$ 

232 IF W$="S" OR W$="s" THEN GOTO 131 

233 IF W$="N" OR W$="n" THEN GOTO 406 

234 GOTO 231 

235 GOTO 406 

236 LOCATE 21,1 

237 PRINT SPACE$(80) 

238 LOCATE 21,1 

239 PRINT "HAS ENCONTRADO LA PALABRA" 

240 GOTO 230 

241 LOCATE 21,1 

242 PRINT “ESA LETRA NO ESTA EN LA PALABRA E 

243 ON M GOTO 244,246, 248, 250, 252, 254, 256, 258, 260, 262 

244 PRINT "PRIMERO PINTO UNA CABEZA yl 

245 GOTO 263 


246 PRINT "AHORA PINTO UN CUERPO 

247 GOTO 263 

248 PRINT "LO SIGUIENTE QUE DIBUJO ES UN BRAZO > 
249 GOTO 263 

250 PRINT "ES HORA DE PONER EL OTRO BRAZO 

251 GOTO 263 

252 PRINT "AHORA LE PONEMOS LA PIERNA DERECHA 5 
253 GOTO 263 

254 PRINT "ESTA VEZ LE PONGO LA PIERNA IZQUIERDA y 
255 GOTO 263 

256 PRINT "AHORA UNA MANO s 
257 GOTO 263 

258 PRINT "LO SIGUIENTE LA OTRA MANO E 
259 GOTO 263 

260 PRINT “AHORA LE DIBUJAMOS UN PIE É 
261 GOTO 263 

262 PRINT "AQUI ESTA EL OTRO PIE. ESTAS AHORCADO!! " 
263 ON M GOTO 264,275,279,283,288, 291,294, 296, 298, 301 
264 LET P$(3,6)="-" 

265 LET P$(3,7)="-" 

266 LET P$(3,8)="-" 

267 LET P$(4,5)="(" 

268 LET P$(4,6)="." 

269 LET P$(4,8)="." 

270 LET P$(4,9)=")" 

271 LET P$(5,6)="-" 

272 LET P$(5,7)="-" 

273 LET P$(5,8)="-" 

274 GOTO 303 

275 FOR I=6 TO 9 

276 LET P$(1,7)="0" 

277 NEXT 1 

278 GOTO 303 

279 FOR 1=4 TO 7 

280 LET P$(1, I-1)="3x" 

281 NEXT I 

282 GOTO 303 

283 LET P$(4,11)="/" 

284 LET P$(5,10)="/" 

285 LET P$(6,9)="/" 

286 LET P$(7,8)="/" 

287 GOTO 303 

288 LET P$(10,6)="/" 

289 LET P$(11,5)="/" 

290 GOTO 303 

291 LET P$(10,8)="x" 

292 LET P$(11,9)="x" 

293 GOTO 303 

294 LET P$(3,11)="x" 

295 GOTO 303 

296 LET P$(3,3)="/" 

297 GOTO 303 

298 LET P$(12,10)="x" 

299 LET P$(12,11)="-" 

300 GOTO 303 

301 LET P$(12,3)="-" 

302 LET P$(12,4)="/" 

303 FOR I=1 TO 12 

304 LOCATE 7+1,29 

305 FOR J=1 TO 12 


306 PRINT P$(1,J); 
307 NEXT J 
308 NEXT 1 


309 LOCATE 21,1:PRINT SPACE$(80) 

310 LOCATE 21,1 

311 IF M<>10 THEN FOR I=1 TO 1000:NEXT I:GOTO 174 

312 PRINT "LO SIENTO HAS PERDIDO":PRINT "LA PALABRA ERA ";A$ 
313 FOR I=1 TO 2000:NEXT 1 

314 LOCATE 21,1 


PROGRAMAS 


315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 


361 


362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 


PRINT SPACE$(80) 


GOTO 


DATA " 
DATA " 


DATA 


DATA ” 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


230 


a 
“SIN" 

"FEO" 

pS 

e 

hip 
"GATO" 
"MESA" 
"BOTE" 
"BACA" 
“BOLI" 
paña" 
“TRES” 
"PINO" 
Pdo 
"CASO" 
"PIZZA" 
"RELOJ" 
"FICHA" 
“TECLA” 
"ACIDO" 
"FALTA" 
"CINCO" 
"SIETE" 
io” 
"PELAS" 
"SALTAR" 
"DINERO" 
"ARRIBA" 
"SEMANA" 
“HUMEDO” 
"GAKEON" 
"PENSAR" 
“PROBAR” 
"CONTRA" 
"PERICO" 
"GESTION" 
"REPLICA" 
"MECHERO" 
"CIGARRO" 
“DRACULA” 
"OCTUBRE" 
“VAMPIRO” 
"DESTACA" 
"RESUMIR”" 
"CONTROL" 
"SARGENTO" 
"CACHARRO" 
“TELEFONO” 
“DORMILON" 
“ALMOHADA” 
"RESUMIDO" 
"PERDIDOS" 
"ANIMALES" 
“COMPONER” 
“REPLICAR” 
"TRIANGULO" 
"PELIGROSO" 
"FABRICADO" 
"DIFERENTE" 
"ROTULADOR" 
"ESPEJISMO" 
"“DEMOCRATA" 


384 DATA "ESPARRAGO" 

385 DATA "ABOLICION" 

386 DATA "PERDICION" 

387 DATA “ENFERMEDAD” 

388 DATA "CIENTIFICO" 

389 DATA "CALENDARIO" 

390 DATA "IMPREGNADO” 

391 DATA "DESTROZADO" 

392 DATA "PATIDIFUSO" 

393 DATA "IZQUIERDAS" 

394 DATA "CARACTERES" 

395 DATA "EVIDENCIAR” 

396 DATA "DESARROLLO" 

397 DATA "PARASIMPATICOMIMETICO" 
398 DATA "PREMATRIMONIAL” 

399 DATA "QUIMIOTROPISMO” 

400 DATA "ESTERNOCLEIDO"” 

401 DATA "INSTITUCIONALIZACION" 
402 DATA "CONSTITUCIONAL” 

403 DATA "DESCENTRALIZACION"” 

404 PRINT "ADIOS" 

405 END 

406 LOCATE 22,1:PRINT SPACE$(80) 
407 LOCATE 22,1 

408 PRINT "JUGAMOS OTRA VEZ? (S/N)" 
409 LET A$=INKEYS$ 

410 IF A$="S" OR A$="s" THEN RUN 
411 IF A$="N" OR A$="n" THÉN GOTO 413 
412 GOTO 409 

413 CLS 

414 PRINT "HA SIDO ESTUPENDO JUGAR. ” 
415 PRINT 

416 PRINT "HASTA PRONTO. " 

417 PRINT:PRINT 

418 END 


Este programa funciona perfectamente 
en IBM; para que funcione en el COMMO- 
DORE, AMSTRAD y MSX habrá que realizar 
los cambios que aparecen más adelan- 
te. Para los usuarios del SPECTRUM, este 
programa volverá a aparecer en tomos 
sucesivos. 


¿QUE LETRA ELIGES? 


ER PALAERA ERA GATO 


Cuando el cuerpo del ahorcado está 
completo, el juego termina. 
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COMMODORE: 


119 PRINT CHR$(147) 

154 POKE 214,I-1:POKE 211,0 

155 FOR J=1 TO 40:PRINT “ ”::NEXT J 

158 POKE 214,20:POKE 211,0 

160 LET QA=INT(N"RND(0))+1 

174 POKE 214,20:POKE 211,0 

176 POKE 214,21:POKE 211,0 

177 FOR J=1 TO 40:PRINT “ ”::NEXT J 

186 POKE 214,10:POKE 211,0 

190 POKE 214,12:POKE 211,0 

192 GET G$ 

197 1F G$=N$(I) THEN POKE 214,20:POKE 

211,0:PRINT “ESA YA LA HAS ELEGIDO 
":POKE 214,22:POKE 211,0:FOR 

J=1 TO 40:PRINT “ ”::NEXT J:FOR I=1 TO 

1000:NEXT |: GOTO 174 

215 POKE 214,10:POKE 211,0 

219 POKE 214,20:POKE 211,0 

220 FOR J=1 TO 80:PRINT “ ”::NEXT J 

221 POKE 214,20:POKE 211,0 

224 POKE 214,20:POKE 211,0 

225 PRINT “NO. PRUEBA CON OTRA LE- 

TRA”:FOR J=1 TO 40:PRINT “ ”;:NEXT J 

229 POKE 214,20:POKE 211,0:PRINT “LO 

HAS HECHO EN”;T1;“INTENTOS.” 

231 GET WS 

236 POKE 214,20:POKE 211,0 

237 FOR J=1 TO 80:PRINT “ ”::NEXT J 

238 POKE 214,20:POKE 211,0 

241 POKE 214,20:POKE 211,0 

304 POKE 214,6+I:POKE 211,28 

309 POKE 214,20:POKE 211,0:FOR J=1 TO 

80:PRINT “ "::NEXT J 

310 POKE 214,20:POKE 211,0 

315 FOR J=1 TO 80:PRINT “ ”::NEXT J 


406 POKE 214,21:POKE 211,1:FOR J=1 TO 
80:PRINT “ ";:NEXT J 

407 POKE 214,21:POKE 211,0 

409 GETAS 

413 PRINT CHR$(147) 


AMSTRAD: 


154 LOCATE 1,1 

158 LOCATE 1,21 

174 LOCATE 1,21 

176 LOCATE 1,22 

178 LOCATE 1,22 

186 LOCATE 1,11 

190 LOCATE 1,13 

197 IF G$=NS(I) THEN LOCATE 1,21:PRINT 
“ESA YA LA HAS ELEGIDO”:LOCATE 1,22:PRINT 
SPACES$(40):FOR I=1 TO 1000:NEXT |: GOTO 
174 

215 LOCATE 1,11 

219 LOCATE 1,21 

221 LOCATE 1,21 


224 LOCATE 1,21 

229 LOCATE 1,21:PRINT “LO HAS HECHO 
EN”:T1;“INTENTOS.” 

236 LOCATE 1,21 

238 LOCATE 1,21 

241 LOCATE 1,21 

304 LOCATE 29,7.+l 

309 LOCATE 1,21:PRINT SPACES$(80) 
310 LOCATE 1,21 

314 LOCATE 1,21 

406 LOCATE 1,22:PRINT SPACES(80) 
407 LOCATE 1,22 


MSX: 


Las variaones que hay que hacer para 
el MSX son las mismas que para el AMS- 
TRAD, pero cambiando también la línea 
160 por: 


160 LET A=INT(N*RND(0))+1 


' Programa: Trivial ríos 


El programa que aparece a continua- 
ción nos permitirá repasar nuestros cono- 
cimientos de los ríos más importantes de 
España. La forma que tiene el ordenador 
de preguntar no es la normal, sino que 
nos pregunta a base de iconos por pan- 
talla. 


TRiViAL 
RiDS 


PULSE UNA TECLA P2PO C0MTIAYeR 


Pantalla de presentación del programa 
«Trivial Ríos». 


Las preguntas van referidas, principal- 
mente, al entorno en el cual están los 
ríos. Esto es, el ordenador nos va a hacer 
preguntas como: 


¿Sabes qué río pasa por Soria? más ordenadores irán apareciendo en 


: tomos sucesivos. 
De esta manera se consigue que el 


programa resulte más ameno y menos  , Por otro lado, al final del programa se 
aburrido para los estudiantes imprime el número de preguntas hechas, 


el número de respuestas que han sido 
correctas, el tanto por ciento de aciertos 
(porcentaje hidrográfico). 


,"NALON 
¿"DUERO 
¿"BIDASOA 
¿"TURIA 


respuestas acertadas 008 
respuestas falladas --34 


preguntas hechas --> 10 


2 ),-¿QUE RIO DESEMBOCA EN PUENTE FORCIMAS? 3 percata dit y 


MUY MAL 
PULSE UNA TECLA PARA CONTINUAR; CESC) FARA TERMINAR 


QUIERE EMPEZAR DE NUEVO (S/N)? 


A Un momento en la ejecucón del 
2) programa. 


Este programa sólo es válido para el A Al final del programa, se dan los 
IBM. Las diferentes versiones para los de- ' resultados que ha obtenido el usuario. 


E ti 
REM SOMOS OK RIOS DE ESPAXA (TRIVIAL RIOS) AMOO OOOO OIOIOIO KK 
REM ARSSSOOlOlOOlOK POR: JUAN MANUEL GUTIERREZ LEITON AAAMOOO SIOIO NOK Kk 
REM ASMSSOlOlOlOlOJOK AMOS IO lO OOO JOJOK 
E 
REM 

O 
REM adRSldooloNlolooakxx (C) EDICIONES SIGLO CULTURAL (1987) AdMSMSdOS OSOS lolOjojolojok 


030425 JN Aa 


E O 
10 DIM TR(75) 

11 DIM AL(3) 

12 DIM RI$(12) 

13 RESTORE 

14 CLS 

15 PRINT 

16 PRINT 

17 PRINT" 222222222 222222222 222 22 22: "224 22222 az ala 
18 PRINT" 222 22 22 22 22 22 22 222 
19 PRINT" 222 222222222 222 22 22 222...22 TO 
20 PRINT" 222 22-222 222 22 22 222 22222222 222 
21 PRINT" 222 22 222 222 22 22 De iaa e +; 
22 PRINT" 222 22 222 222 222 2er 22 22: 22228222 : 
23 PRINT 

24 PRINT 

25 PRINT 

26 PRINT" 222222222 222 222222222 222222222 

27 PRINT" 22 22 22 22 22 

28 PRINT" 222222222 222 22 22 222222222 

29 PRINT" 22: 222 222 22 22 82 

30 PRINT" 22 222 222 22 22 22 

31 PRINT" 22 222 222 222222222 222222222 

32 REM contadores de las respuestas acertadas y equivocadas 
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33 BI=0 

34 MA=0 

35 FOR I=1 TO 25 

36 RANDOMIZE TIMER 

37 SOUND RND*x100+37, 2 

38 NEXT I 

39 LOCATE 22,23 

40 PRINT "PULSE UNA TECLA PARA CONTINUAR” 

41 LET A$=INKEY$ 

42 IF A$="". THEN 41 

43 LOCATE 22,23 

44 PRINT "CARGANDO DATOS,POR FAVOR ESPERE” 

45 REM carga de los datos de los rios 

46 GOSUB 128 

47 REM carga de los datos de la tabla de respuestas 
48 GOSUB 223 

49 REM el siguiente bucle for se ejecuta tantas veces como preguntas hay 
50 REM en este caso hay 54 preguntas 

51 FOR I=1 TO 54 

52 REM ir a la subrutina de dibujo de la ventana 

53 GOSUB 284 

54 READ PR$ 

55 LET RE=TR(I) 

56 RANDOMIZE TIMER 

57 LET AL(1)=INT(RND*12)+1 

58 IF AL(1)=RE THEN GOTO 56 

59 RANDOMIZE TIMER 

60 LET AL(2)=INT(RND*12)+1 

61 IF AL(2)=AL(1) OR AL(2)=RE THEN GOTO 59 

62 RANDOMIZE TIMER 

63 LET AL(3)=INT(RND*12)+1 

64 IF AL(3)=AL(2) OR AL(3)=AL(1) OR AL(3)=RE THEN GOTO 62 
65 LET PO=INT(RNDx*4)+1 

66 REM po es la posicion en la ventana de la respuesta 
67 LOCATE 3+POx*x2,30 

68 PRINT PO; ".-";RI$(RE) 

59 LET K=1 

70 FOR J=1 TO 3 


71 IF PO=.WJ THEN GOTO 73 

72 GOTO 77 

73 LET K=K+1 

74 LOCATE 3+Kx*2,30 

75 PRINT K;".-";RIS(AL(J)) 
76 GOTO 79 

77 LOCATE 3+Kx2,30 

78 PRINT K;".-";¡RI$(AL(J)) 
79 LET K=K+1 

80 NEXT J 


81 LOCATE 18,15 

82 PRINT 1;").-";PR$; 

83 INPUT CO$ 

84 REM cos es la contestacion dada a una pregunta 
85 IF LEN(CO$)>1 THEN BEEP:GOTO 81 

86 IF CO$<"0" OR CO$>"9" THEN BEEP:GOTO 81 

87 IF VAL(CO$)<1 OR VAL(CO$)>4 THEN BEEP:GOTO 81 
88 IF VAL(CO$)=PO THEN GOTO 97 

89 LOCATE 21,35 

90 SOUND 100,10 

91 PRINT ” MUY MAL 

92 MA=MA+1 

93 COLOR 31 

94 LOCATE 3+POx2,30 

95 PRINT PO;".-";RI$(RE) 

96 GOTO 101 

97 LOCATE 21,35 

98 SOUND 1000,5 

99 PRINT " MUY BIEN 

100 BI=BI+1 


101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
VEZ 
118 
119 
120 
121 
122 
123 
124 
125 
126 

27 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 


COLOR 2 
LOCATE 23,17 


PR 
as 
IF 
IF 
NEXT 


INT "PULSE UNA TECLA PARA CONTINUAR; (ESC) PARA TERMINAR" 


= INKEY$ 


A$="" THEN 104 
ASC(A$)=27 THEN GOTO 108 
I 


GOSUB 287 

LOCATE 3,20 

PRINT "respuestas acertadas -->";BJ] 
LOCATE 5,20 

PRINT "respuestas falladas -->";MA 
LOCATE 7,2 

PRINT "preguntas hechas ->";BI+MA 
LOCATE 9,20 

COLOR 31 

PRINT “porcentaje hidrografico -->";INT((BI1/I)*100);"%" 
COLOR 2 

LOCATE 12,25 

PRINT "QUIERE EMPEZAR DE NUEVO (S/N)?"; 
LET A$=INKEY$ 

TF A$="" THEN GOTO 121 

TF A$="S" OR A$="s" THEN GOTO 13 


CLS 
END 
REM RAMOS OOOO ORIO IOIOIOIO OOOO OOOO OIR OOOO ORIO JA A 
REM data de los principales rios de la peninsula 
NI E AS 
REM 
DATA MIX%O 
DATA DUERO 
DATA TAJO 
DATA GUADIANA 
DATA GUADALQUIVIR 
DATA EBRO 
DATA .JUCAR 
DATA SEGURA 
DATA NALON 
DATA NERVION 
DATA BIDASOA 
DATA TURIA 
REM ARO OOOO ROO OOOO OOOO OIGO IIA 
REM fin de la data de los rios de la peninsula 
REM ARO III IO III IO JO IOIOIIOIOIo Ok 
REM 
REM 
REM AROS IO OIR IO OOOO IOK: 
REM creacion de la tabla de rios de la peninsula 
REM ARSS ISSO OOOO OOOO OOOO OOOO OOOO III loloIOdok 
FOR I=1 TO 12 , 
READ RI$(I) 
NEXT I 
RETURN 
O Sd 
REM fin de la creacion de la tabla de rios 
REM MMS SSI ISSO ljo llo lok 
REM 
REM 
E 
REM data de las 54 preguntas de los rios de la peninsula 
REM ARSS SOS lll OOO IOIOIOIOIOIOIOIOIOIOIO OK 
DATA (QUE RIO PIRENAICO DESEMBOCA EN EL CANTABRICO 
DATA (QUE RIO DESEMBOCA EN PUENTE FORCINAS 
DATA (EL RIO CABRIEL ES UN AFLUENTE DEL... 
DATA (EL. RIO TAMBRE ES UN AFLUENTE DEL... 
DATA (EL RIO MULA ES UN AFLUENTE DEL... 
DATA (EL RIO GUADIANA MENOR ES UN AFLUENTE DEL... 
DATA (QUE RIO DESEMBOCA EN OPORTO 
DATA (QUE RIO PASA POR BURGOS 


20 PROGRAMAS 


170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 


(QUE RIO DESEMBOCA EN AYAMONTE (HUELVA) 

(QUE RIO DESEMBOCA EN LA GUARDIA 

(EL RIO GALLO ES UN AFLUENTE DEL... 

(EL RIO TORMES ES UN AFLUENTE DEL... 

(EL RIO ESLA ES UN AFLUENTE DEL.. 

(QUE. RIO PASA POR CRENSE 

(QUE RIO PASA POR LA CIUDAD DE TOLEDO 

(QUE RIO EN SU TRAMO FINAL SEPARA ESPAXA DE FRANCIA 

(QUE RIO NACE EN PEXA ORDUZA (ALAVA) 

(EL RIO NARCEA ES UN AFLUENTE DEL... 

(QUE RIO PASA POR ELIZONDO 

(EL RIO MUNDO ES UN AFLUENTE DEI!.... 

(QUE RIO DESEMBOCA EN CULLERA 

(QUE RIO PASA POR SORIA 

(EL RIO JALON ES UN AFLUENTE DEL... 

(EL RIO GENIL ES UN AFLUENTE DEL... 

(QUE RIO NACE ENTRE LAS SIERRAS DE ALCON Y CAZORLA 

(QUE RIO PASA POR CORDOBA Y SEVILLA 

(QUE RIO NACE EN FONTIBRE (SANTANDER) 

(QUE RIO PASA POR ZARAGOZA 

(QUE RIO DESEMBOCA EN SANLUCAR DE BARRAMEDA (HUELVA) 

(EL RIO CADAGUA ES UN AFLUENTE DEL... 

(QUE RIO NACE EN LA PROVINCIA DE ASTURIAS 

(QUE RIO PASA POR BILBAO 

(QUE RIO NACE JUNTO AL CERRO DE SAN FELIPE EN CUENCA 

(QUE RIO DESEMBOCA EN GUARDAMAR (ALICANTE) 

(QUE RIO PASA POR VALENCIA 

(QUE RIO NACE EN LA LAGUNA DE FUENMIXA (LUGO) 

(EL RIO SIL ES UN AFLUENTE DEL... 

(EL PISUERGA ES UN AFLUENTE DEL... 

(QUE RIO ES EL MAS LARGO DE LA PENINSULA (1.120 Km) 

(QUE RIO NACE EN LOS PICOS DE URBION 

(QUE RIO NACE EN LA SIERRA DE ALBARRACIN 

(QUE RIO PASA POR LA CIUDAD DE BADAJOZ 

(EL RIO GUADALBULLON ES UN AFLUENTE DEL... 

(EL RIO CHANZA ES UN AFLUENTE DEL. . 

(EL RIO GENIL ES UN AFLUENTE DEL... 

(QUE RIO NACE EN FUENTE SEGURA (JAEN) 

(EL RIO TAIBILLA ES UN AFLUENTE DEL... 

(EL RIO HIJAR ES UN AFLUENTE DEL.. 

(EL RIO GALLEGO ES UN AFLUENTE DEL... 

(QUE RIO DESEMBOCA EN LA CIUDAD DE LISBOA 

(EL RIO GUADIELA ES UN AFLUENTE DEL... 

(EL RIO ARAGON ES UN AFLUENTE DEL... 

(EL RIO IBAIZABAL ES UN AFLUENTE DEL... 

(QUE RIO NACE EN CASAS DE FUENTE GARCIA (TERUEL) 

ASIS lololalolo jo 
fin de la data de las 54 preguntas de los rios 

AMOS SISSI lll OSI lll lll Jl l llo IoIOJOJoK 


MSI alla ll lalalala lalalala lalalala lalalala lalola alalololOlololok 
creacion de la tabla de respuestas 

ASS SSOS ja lSSlSIOS ll SSIO al flSl lalalala l lO llO lola f jolla lalola lolo jalololaioK 
TR(1)=11 :REM a la pregunta numero 1 le corresponde el rio ri$(11) 
TR(2)=9 :REM a la pregunta numero 2 le corresponde el rio ri$(9) 
TR( 3)=7 

TR( 4)=1 

TR( 5)=8 

TR( 6)=5 

TR( 7)=2 

TR( 8)=6 

TR( 9)=4 

TR(10)=1 

TRETI)=3 

TR(12)=2 

TR(13)=2 

TR(14)=1 


238 LET TR(15)=3 
239 LET TR(16)=11 
240 LET TR(17)=10 
241 LET TR(18)=9 
242 LET TR(19)=11 
243 LET TR(20)=8 
244 LET TR(21)=7 
245 LET TR(22)=2 
246 LET TR(23)=6 
247 LET TR(24)=4 
248 LET TR(25)=5 
249 LET TR(26)=5 
250 LET TR(27)=6 
251 LET TR(28)=6 
252 LET TR(29)=5 
253 LET TR(30)=10 
254 LET TR(31)=9 
255 LET TR(32)=10 
256 LET TR(33)=7 
257 LET TR(34)=8 
258 LET TR(35)=7 
259 LET TR(36)=1 
260 LET TR(37)=1 
261 LET TR(38)=2 
262 LET TR(39)=3 
263 LET TR(40)=2 
264 LET TR(41)=3 
265 LET TR(42)=4 
266 LET TR(43)=5 
267 LET TR(44)=4 
268 LET TR(45)=5 
269 LET TR(46)=8 
270 LET TR(47)=8 
271 LET TR(48)=8 
272 LET TR(49)=6 
273 LET TR(50)=3 
274 LET TR(51)=3 
275 LET TR(52)=86 
276 LET TR(53)=10 
277 LET TR(54)=3 


278 RETURN 
II E E 
280 REM fin de la creacion de la tabla de respuestas 


281 REM ROO ROO OOO OOOO ROO OOOO OOO OOOO OOOO OOOO OOOO OOOO OOOO OOO IO do 
282 REM 

283 REM 

284 REM JOAO ROO OOO OOOO OOOO OOOO OOOO OOOO dodo 
285 REM AdGoalolaldiookx RUTINA DE CREACION DE VENTANAS OOOO OOOO do 
286 REM JARA ORO ROO RORORORORRORORO ROO RRA ACARICIO ROO OO AH 
287 LET F1=2 ' 

288 LET F2=15 

289 LET C1=15 

290 LET C2=65 

291 CLS 

292 LOCATE F1,C1 

293 PRINT CHR$(201); 

294 FOR V=C1+1 TO C2-1 

295  PRINT CHR$(205); 

296 NEXT Y 

297 PRINT CHR$(187) 

298 FOR V=F1+1 TO F2-1 

299  LOCATE V,C1 

300  PRINT CHR$(186) 

301  LOCATE V,C2 

302  PRINT CHR$(188) 

303 NEXT Y 

304 LOCATE F2,C1 

305 PRINT CHR$(200); 


2 PROGRAMAS 


306 FOR V=C1+1 TO C2-1 

307 PRINT CHR$(205); 

308 NEXT V 

309 PRINT CHR$(188) 

310 RETURN 

311 REM 

312 REM 

IE 
314 REM fin de la rutina de creacion de ventanas 

O 


2 
TECNICAS DE ANALISIS 


DISEÑO DE SISTEMAS (II) 


Organigrama 
== general 
L objeto del organi- 
grama general es 
plasmar de un modo 
gráfico las relaciones 
existentes entre los 
distintos elementos 
del sistema. Es impor- 
tante que pueda ser 
observdo el conjunto de la aplicación si- 
multáneamente (o en dos partes) por lo 
que debe incluirse en un solo gráfico (o 
en dos hojas a lo sumo) el organigrama 
completo del sistema que se está descri- 
biendo. 

En este organigrama general se suele 


poner el acento en la presentación de 
los diferentes «grupos de datos» que in- 
tervienen en el proceso (es decir, archi- 
vos de entrada y/o salida e informes a 
obtener) y las relaciones de estos «gru- 
pos de datos» entre sí y con los procesos 
a realizar sobre ellos. De este modo, en 
el organigrama general suele aparecer 
cada proceso (cada programa) o cada 
grupo de funciones a realizar como una 
unidad, aunque comporte varias activi- 
dades o manipulaciones de los datos. 
Normalmente cada uno de estos «blo- 
ques» formados por un proceso y los ar- 
chivos a él vinculados suele venir presen- 
tado en otro organigrama de detalle y 
constituye una unidad de tratamiento 
descrita independientemente. 


DATOS DE ENTRADA 
DATOS A INTRODUCIR 
pase > Datos depurados y | 
| | reunidos por n.* de control 
lo] sia N 
r DATOS HISTORICOS 
PROCESO GENERAL 
| Varlos archivos con datos 0 ponia 


históricos y secuencia de p« 
octuallzaciones 


| listado de datos actuales 
e históricos 


Más adelante estudiaremos en detalle 
cómo se realizan estos organigramas: 
simbología, convenciones a respetar, ti- 
pos, etc. 


Organigrama general representativo de las relaciones entre los datos y los procesos. 


Organigramas de detalle 


Cada una de las partes del sistema 
que se diseña (normalmente uno o dos 
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bloques del organigrama general) se 
suelen presentar más concretamente en 
un organigrama de detalle. El aspecto 
de estos organigramas es semejante al 
ya indicado para los organigramas ge- 
nerales, aunque incluyen especificacio- 
nes más concretas de los archivos e in- 


formes a obtener así como de los proce- 
sos a realizar con los datos. 

En la figura 2 se presenta un posible or- 
ganigrama de detalle del «proceso ge- 
neral de cálculo por número de control» 
para el sistema de la figura 1. 


MOVIMIENTO 
DE 
ENTRADA 


PARAMETROS 
PARA LOS 
INFORMES 


POSICION 
histórica de cada n.* 
control 


' 


CALCULO 
de la nueva posición 
obtenida a partir de los 
nuevos datos de entrada 


[ J 
| GRABACION 
de datos: en el archivo 


histórico de movimientos 
y en el histórico general 


ANA: AS 


PREPARACION 
de los informes a 
obtener 


l ES 
CLASIFICACION 
de los datos de entrada FICHERO 
por n.* de control e 
A 
RECUPERACION DE LA 
< 


IMPRESION 
de 
informes 


MOVIMIENTOS 
por fechas 


MOVIMIENTOS 
por n.* de control 


SITUACIÓN 
de los n.* de control 
seleccionados 


DATOS GENERALES 
del proceso, 
estadísticos, etc. 


lA Organigrama de detalle. 


Es usual que estos organigramas de de- 
talle sean reproducción de los que se in- 
cluyen en los dossieres de los diferentes 
programas. 


Diseño de documentos 


== de salida 


Aunque en la documentación específi- 
ca de cada programa se incluyan todos 


los formatos de los documentos que se 
obtienen en cada programa, se adjunta 
en el diseño global del sistema una infor- 
mación general de los documentos a ob- 
tener, con información de los datos que 
en ellos se van a incluir. 

Se adjunta (fig. 3) un diseño de un po- 
sible formulario en el que se pueden in- 
cluir los datos de descripción del im- 
preso. 


IMPRESO DE 


A A Formato: 
Utilidad E Colum/línea: 
.. líneas/pág.: 
. Formato de control de carro: . 


. Numeración de páginas: ................... 


A A A Formato pee Posiciones 
del campo | de edición amaño de impresión 


| | d 
A | Formulario de la descripción de impreso. 


Supervisado por. 
Aprobado por... 


En él se suele poner, en la parte supe- 
rior, el nombre del impreso para su fácil 
identificación por personas no conoce- 
doras de la aplicación, aunque luego se 
le asigne un número codificado para su 
exacta referencia. El apartado «utilidad» 
se utiliza para describir (brevemente) el 
objeto del impreso y el tipo de informa- 
ción que en él se va a dar. Además, hay 
que incluir una descripción general del 
«Aspecto» del impreso (número de co- 
lumnas, línea, número de líneas por pá- 
gina, etc.). Es normal describir aparte el 
formato de saltos, cabeceras, subtotales, 
etcétera, en un documento específico 
cuyo nombre y/o número se debe dar 
aquí. 

En la «Secuencia de impresión» se sue- 
le indicar el orden y secuencia en que se 
procesan los registros de datos de entra- 
da para elaborar los informes de salida. 
Por otro lado, conviene describir (aparta- 
do «Niveles de impresión») bajo qué con- 
diciones se producirá la rotura de control 
necesaria para la presentación de los 
datos. 

La parte más importante del documen- 
to es la «Descripción de los campos»: en 
esta sección se describe el aspecto con- 
creto de los campos que se incluyen en 
el informe o listado. 


ae, o A + DE CAMPOS 


Descripción 


Nombre del campo. Se refiere al que se 
da a ese dato; normalmente suele ser el 
nombre que aparece en la cabecera de 
esa columna del impreso. 


Formato de edición. Si el campo es al- 
fabético (ajuste a la derecha) o numéri- 
co (ajuste a la izquierda) y, en este úliti- 
mo caso, número de posiciones decima- 
les, si se suprimen los ceros de la izquier- 
da, cómo se pone el signo, etc. 


Tamaño del campo. 


Posiciones de impresión sobre las que 
se va a imprimir el campo correspon- 
diente. 


Origen de los datos con los que se ela- 
bora el contenido de este campo o, sen- 
cillamente, campo de un registro cuyo 
contenido se imprime aquí. 


Nivel es el correspondiente «nivel de 
impresión» (de entre los descritos en la 
cabecera de este formulario) que corres- 
ponde al campo de que se trata. 


Descripción somera del contenido del 
campo, cuando de los datos anteriores 
(y especialmente del «nombre del cam- 
po») no se deduce claramente. Se pue- 
den incluir aquí comentarios generales 
sobre el contenido de los diferentes cam- 
pos o sobre su impresión. 


EAMOS algunos ejem- 
plos de datos litera- 
les en el lenguaje BA- 
SIC: 


"Esto es un dato literal" 
"Calle de 0"+CHR$ (39)+"Donnel1 " 
"Calle de 0”+CHR$(34)+"Donnel1" 


Se observará que dentro de un dato li- 
teral (entre las dobles comillas) pueden 
incluirse letras mayúsculas y minúsculas 
mezcladas, en aquellos ordenadores 
que acepten ambos juegos de letras. 
Fuera de las comillas, los intérpretes de 
todas las letras minúsculas a mayúsculas. 
En los ejemplos puede verse también 
cómo se pueden mezclar en el mismo 
dato literal expresiones entre comillas y 
caracteres definidos mediante la función 
CHRS. Así, el segundo ejemplo se conver- 
tiiá en «Calle de O'Donnell», mientras 
que el tercero utiliza la doble comilla en 
lugar de la comilla simple, por lo que vie- 
ne a representar «Calle de O'Donnell». 

En BASIC es posible asignarle a una va- 
riable un dato literal con una condición: 
que el hombre de la variable termine en 
el carácter $. Por tanto, serán variables li- 
terales válidas las siguientes: 


TECNICAS 
DE PROGRAMACIÓN 


TIPOS DE DATOS (continuación) 


A$ NOMBRES 
DIM B$(3), TABLAS (4,4) 


Obsérvese que también pueden defi- 
nirse agregados de datos literales, como 
la serie o vector B$, que tiene tres ele- 
mentos, cada uno de los cuales puede 
tomar como valor una cadena de carac- 
teres que normalmente está limitada a 
un máximo total de 255, incluyendo le- 
tras, cifras, símbolos y el espacio en blan- 
co. También pueden definirse tablas de 
caracteres, como la variable TABLAS, 
que tiene cuatro filas y cuatro columnas. 
Cada uno de sus elementos (por ejem- 
plo, TABLAS(2,3), el situado en la intersec- 
ción de la segunda fila y la tercera co- 
lumna), puede tomar como valor una ca- 
dena de caracteres cualquiera, dentro 
de los límites permitidos por el intérprete 
o compilador correspondiente. 


Nota: En todos los intérpretes de BASIC 
existe un límite al número de caracteres 
que puede tener el nombre de una varia- 
ble. En algunos este límite es muy peque- 
ño. Es posible, por tanto, que algunos de 
los nombres dados como ejemplo en 
este capítulo y el anterior no sean vali- 
dos en un intérprete de BASIC determina- 
do. 

Al igual que vimos en el capítulo ante- 
rior al hablar de los distintos tipos de da- 


tos numéricos, algunos intérpretes de BA- 
SIC permiten definir que todas las varia- 
bles que comiencen por ciertas letras y 
no terminen en uno de los caracteres es- 
peciales de selección de tipo pertenez- 
can automáticamente al tipo literal. Esto 
se consigue con la instrucción DEFSTR 
(«define string»), que funciona igual que 
DEFDBL y DEFINT, ya explicadas. 

En el lenguaje PASCAL los datos litera- 
les se representan igual que en BASIC, 
con la diferencia de que se utiliza la co- 
milla simple (') en lugar de la doble (”). 
Una comilla simple puede aparecer den- 
tro de una cadena de caracteres, pero 
para no confundirla con la que señala el 
final de la cadena, deberá escribirse du- 
plicada. Por tanto, las tres cadenas de 
caracteres que vimos como ejemplo en 
el caso del BASIC se escribirían en PAS- 
CAL así: 


"Esto es un dato literal” 
>Calle de 0**Donnel1” 
"Calle de O"Donnel1” 


En algunos compiladores de PASCAL es 
posible obtener cualquier carácter ASCII 
de una forma parecida a la de la función 
CHR$ de BASIC. Sin embargo, en lugar de 
utilizar una función se suele conseguir 
esto mediante un símbolo especial segui- 
do por el número ASCII del carácter que 
se desea obtener. 

Como en PASCAL hay que declarar to- 
das las variables, también las que con- 
tengan caracteres deberán aparecer 
declaradas al principio del programa. 
Veamos algún ejemplo: 


program EJEMPLO; | 
(k Declaración de variables literales *) 
var 
a: char; 
(X a contendrá un sólo carácter %*) 
b: array[1..2551] of char; 
(Xx b contiene 255 caracteres %) 
tabla: array[l1..4,1..4] of char; 
(X tabla de 4 filas y 4 columnas 


Hay una diferencia fundamental entre 
los datos literales de BASIC y los de PAS- 


CAL. En el primero de estos lenguajes, la 
unidad fundamental es la cadena de ca- 
racteres, cuya longitud puede variar en- 
tre ciertos límites (normalmente cero y 
255). En PASCAL, sin embargo, la unidad 
es el carácter individual, con el que tam- 
bién se pueden formar vectores y matri- 
ces. Por eso, aunque en BASIC el valor de 
TABLA$(2,3) es una cadena de caracte- 
res completa (por ejemplo, “MARTES”) en 
PASCAL el valor de TABLA(2,3) será un 
solo carácter. 

No obstante, en algunos compiladores 
de PASCAL se introduce un segundo tipo 
de datos literales además de «char», que 
se llama tipo «string», y que corresponde 
al tipo literal de BASIC. Aunque éste no es 
un tipo estándar del PASCAL, por lo que 
no es obligado que todos los compilado- 
res lo entiendan, está bastante extendi- 
do. Veamos algunos ejemplos de su uso: 


program EJEMPLOZ2; 

(K Declaración de variables iria x) 
var 

a, nombre: string; 

b: array[1..3] of string; 

tabla: arrayl1..4,1..41] of string; 


Los ejemplos indicados son equivalen- 
tes a los que vimos antes al tratar los da- 
tos literales en BASIC, aunque el modo de 
realizar la declaración puede variar lige- 
ramente de compilador en compilador. 

En el lenguaje APL los datos literales se 
introducen entre comillas simples, como 
en PASCAL. También es preciso duplicar 
las comillas que han de formar parte de 
las cadenas de caracteres. Veamos 
cómo se forman en este lenguaje las tres 
cadenas de caracteres de nuestros 
ejemplos anteriores: 


'Esto es un dato literal' 
Esto es un dato literal 

*Calle de 0''Donnell' 
Calle de O'Donnell 

*'Calle de O"Donnell' 
Calle de O"Donnell 


Como se ve, es totalmente equivalen-. 
te al caso del PASCAL. Tambien pueden 
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obtenerse caracteres aislados indexan- 
do una variable del sistema, cuyo nom- 
bre se forma mediante un cuadrado se- 
guido de las letras A y V, siglas de «Ato- 
mic Vector», o vector atómico, pues es 
así como se llama en APL el conjunto de 
todos los caracteres posibles. El índice 
que hay que dar para obtener cada ca- 
rácter depende, en general, del intérpre- 
te de APL, pues algunos intérpretes no uti- 
lizan el sistema ASCII de representación 
de caracteres. En los ejemplos dados a 
continuación utilizaremos el sistema de 
representación interna del intérprete APL 
de IBM para el IBM Personal Computer. 

En primer lugar, para obtener un sola 
carácter basta con indexar la variable 
«Cuadrado-AV» con el número de orden 
que ocupa ese carácter en la lista de ca- 
racteres APL. 


DAVI63] 


DAV[381] 
DAVI10] 


Para obtener varios caracteres conse- 
cutivos puede indexarse a la vez el con- 
junto de todos los caracteres («cuadrado 
AV») por los números de orden corres- 
pondientes: 


DAVI63 38 101] 
AB? 


DAV[62+1261] 
ABCDEFGHIJKLMNOPQRSTUVWXYZ 


Obsérvese que los índices pueden dar- 
se en forma de lista de datos (como en 
el caso 63, 38 10) o de una expresión APL 
cualquiera. Como se recordará, la letra 
griega «iota» colocada delante de un nú- 
mero genera todos tos números com- 
prendidos entre 1 y el número dado. En 
nuestro caso, los números de 1 a 26. Si a 
esa lista de números le sumamos 62, ob- 
tendremos una nueva lista de números 
comprendidos entre 63 y 88, que son pre- 
cisamente los índices de las 26 letras ma- 


yúsculas del alfabeto en la representa- 
ción interna APL que estamos conside- 
rando. 

Por último, podemos también obtener 
la lista de todos los caracteres posibles 
(y, por tanto, deducir su orden) Invocan- 
do la variable «cuadrado-AV» sin índice 
alguno: 


DAv 
esticrp, ?710+-+omx!iT=f>2<5 Ha 
AVR F2I1TAA/ANMBCI0GwM€ ST): AB 
CDEFGHIJKLMNOPQRSTUVWXYZáabcdefg 
hijklmnopqrstuvwxyzA_”0123456789. 


DB'AVO ¡AAGE10000U0EO0UCLar-Aáióú 
ñNOeiLé->-Viaée H 2 U++ 
—> Ln £ 

z ¡UC"NSI/E 7 


Los datos literales APL pueden formar 
también series y tablas (vectores y matri- 
ces), igual que ocurre con los datos nu- 
méricos. Las primeras se obtienen, como 
ya hemos visto, escribiendo una cadena 
de caracteres entre comillas o indexan- 
do la variable del sistema «cuadrado-AV» 
por una serie de índices. Las tablas o ma- 
trices literales se construyen como vimos 
en el capítulo cuarto, utilizando la letra 
griega «rho», a cuya izquierda se coloca 
el numero de filas y columnas que va a 
tener la tabla y a su derecha los valores 
correspondientes ordenados por filas, en 
forma de serie de caracteres. Veamos al- 
gunos ejemplos: 


M Mm p * JUANLUISPACOJOSE* 


£:10'p 
TABLA DE 
CARACTERES 


*TABLA DE CARACTERES” 


Como ya hemos dicho varias veces, en 
APL no es preciso declarar las variables 
ni existe regla alguna sobre qué tipo de 
datos puede contener cada variable. 
Cualquier nombre es compatible con 
cualquier tipo de datos. En general, una 
variable será numérica o literal según los 
valores concretos que se le asignen. Si es 
numérica, será entera o real, dependien- 


do de los valores que tome. Igualmente 
ocurre con su estructura: podrá ser un es- 
calar (un solo valor), un vector (una se- 
rie de valores) o una matriz (una tabla de 
filas y columnas) dependiendo del valor 
que se le haya asignado, que puede 
cambiar a lo largo de un programa. Por 
tanto, la misma variable, que en cierta 
instrucción podía ser una matriz de ca- 
racteres, en otra podrá convertirse en un 
vector de números. Esta práctica no es 
aconsejable, pues tiende a hacer los 
programas más difíciles de leer por otras 
personas, o incluso por el mismo progra- 
mador, si hace cierto tiempo que los es- 
cribió. 


3) Otros tipos y estructuras 
== de datos 


Además de los tipos y estructuras de 
datos mencionados en las páginas ante- 
riores, existen otros muchos. Entre las es- 
tructuras, podemos mencionar las si- 
guientes: 


1. Estructuras rectangulares de orden 
superior. Son equivalente a los vectores 
y matrices, pero tienen más de dos di- 
mensiones. Su nombre técnico, en mate- 
máticas, es «tensores». En Informática se 


suelen denominar «agregados multidi- 
mensionales» (arrays, en inglés). Se 
crean o declaran con el mismo tipo de 
instrucciones utilizadas para declarar o 
crear matrices, pero dando el número de 
dimensiones adecuado para cada caso. 
Así, en BASIC se utilizará la instrucción 
DIM, en PASCAL la declaración de tipo 
«array» y en APL la letra griega «rho». 

2. Estructuras arborescentes. Listas y 
árboles. Existen diversas técnicas para 
construirlas, en las que no vamos a entrar 
aquí en este momento. 


3. Estructuras gráficas. 


Mencionemos también algunos tipos 
de datos: 


1. Datos lógicos. Muy utilizados. Ha- 
blaremos de ellos con detalle más ade- 
lante. 

2. Nombres o identificadores. Este 
tipo de datos no existe en BASIC o en APL, 
donde, en general, se sustituyen por los 
tipos literales. Son frecuentes en PASCAL. 

3. Punteros. Son muy utilizados en los 
lenguajes próximos a la máquina, como 
el lenguaje simbólico o el C. 


Algunos lenguajes, como el PASCAL, 
permiten incluso definir tipos nuevos, así 
como subtipos de los tipos tundamenta- 
les o de los definidos por el programador. 


A mejor manera de 
aprender a utilizar un 
programa de aplica- 
ciones es sentarse 
frente al ordenador y 
realizar ejemplos que 
nos permitan ir cono- 
ciendo su utilización. 
Si procediéramos memorizando una lista 
de comandos, posiblemente no llegaría- 
mos a conocer bien el programa; sin em- 
bargo, al trabajar en casos prácticos ve- 
remos cómo es innecesario memorizar 
nada, simplemente nos acostumbrare- 
mos a hacer que nuestro programa sea 
una herramienta de trabajo. 

En este fascículo presentamos ejem- 
plos con los que se puede “jugar” para 
familiarizarse con el programa; lo iremos 
describiendo paso a paso para facilitar 
la labor. 


¡O Enviemos una circular 


El primer paso que vamos a dar es 
crear la carta que deseamos enviar. Para 
ello cargamos el WordStar (WS) en nues- 
tro ordenador y vemos aparecer el 
“menú sin archivo”; entre las opciones 
que presenta están la de abrir un docu- 
mento y la de cambiar la unidad de dis- 
co activa. Aconsejamos antes de empe- 
zar cambiar a la unidad B>, si se dispo- 
ne de ella; de esta forma no existe la po- 
sibilidad de perder cualquier informa- 
ción existente en el disco maestro del 
WordStar. Para ello pulsamos L y a la pre- 
gunta de cuál queremos que sea la nue- 
va unidad de disco respondemos b: (in- 
tro). 

Ya estamos trabajando en la unidad B 
y podemos abrir nuestro documento: 


APLICACIONES 


TRATAMIENTO DE TEXTOS 
EJEMPLOS CON EL PROGRAMA WORDSTAR 


— Pulsamos D. 

— WordStar pregunta por el nombre 
del documento que queremos abrir. 

— Respondemos: CIRCULAR (Intro). 

— WordStar nos comunica que se tra- 
ta de un documento nuevo. 


El siguiente paso consiste en escribir el 
texto que queremos que aparezca; 
como se trata de una carta que manda- 
remos a varias personas, vamos a poner 
el nombre y los datos correspondientes 
a la primera de ellas. 

La forma de escribir en un procesador 
de textos es muy sencilla; sólo tendremos 
que preocuparnos de pulsar (Intro) des- 
pués de un punto y aparte; mientras tan- 
to, escribiremos continuamente y sin 
preocuparnos de que la línea se termina 
o de cómo se distribuyen las palabras; 
esta tarea corresponde a un paso poste- 
rior. 


| 29 de Febrero de 1987 
Estimado Sr. Baroja: h 
Como ya le comunicamos en nuestra anterior, fechada el día de 
ayer, y por la presente le rogamos nos diga s1 sería posible su 
asistancia a las conferencias que van a tener lugar en madrid los 
días 26 y 21 del mes de Marzo, yen caso afirmativo le rogamos 
nos comunique si Vd podría encargarse del desarrollo de la 
conferencia sobre el tema *La polución en España*, en el que, sin 
duda, se encuentra Vd. entre las personas con más soluciones. 
Esperando con interés sus noticias a vuelta de correo, y no 
dudando que esta carta será prologo de futuras relaciones 
comerciales a raíz del interés que van a despertar estas 
sesiones, nos repetimos a Vd muy attos. y afmos. 
ASOCIACION AIRE AGRADABLE 
Er: 
Gerente. 


A | Primer aspecto de la carta. Sólo se ha pulsa- 
lA do (Intro) después de los puntos y aparte. 


Cuando la carta está terminada pode- 
mos pasar a reformar el texto para que 
quede a nuestro gusto. Para ello nos si- 
tuamos en modo INSERTAR, que puede 
variarse con (control)Y o simplemente 
presionando la tecla de inserción. 


— Insertando espacios en blanco con 
el tabulador se sitúa la fecha en su sitio. 

— Para el bloque central de la carta 
podemos utilizar dos sistemas: 


a) Con FI (F2 en la versión en inglés) 
variamos el margen izquierdo de acuer- 
do con los tabuladores; cuando se en- 
cuentre el margen en el lugar que desea- 
mos, presionaremos (Control)B y el tex- 
to se reforma hasta el siguiente punto y 
aparte. Este proceso se repetirá hasta el 
final del texto. Si WordStar encontrara 
una palabra que quisiera partir al termi- 
nar una línea, nos preguntaría si el lugar 
es apropiado, de forma que nunca se 
partirá una sílaba por la mitad. 


B:CIRCULAR PAG. 1 LIN. 1% COL 62 INSERTAR SI 


PARA PONER GUION, PULSE -. Antes de pulsar -, se puede 
mover el cursor: *S:cursor 12da., *D:cursor deba. 
S1 no desea guion, pulse *B. 


AAA a 


Como ya le comunicamos en nuestra anterior, fechada el 
día de ayer, y por la presente le rogamos nos diga sl 


sería posible su asistancia a las conferencias que van a 
tener lugar eo madrid los días 26 y 27 del mes de Marzo, y 
en caso afirmativo le rogamos nos comunique s1 Vd podría 
encargarse del desarrollo de la conferencia sobre ei tema 
*La polución en España*, en el que, sin duda, se encuentra 
Vd. entre las personas con más soluciones. 


Esperando con interés sus noticias a vuelta de correo, y 

no dudando que esta carta será prologo de futuras relalliones 
comerciales a raíz del interés que van a despertar estas 
seslones, nos repetimos a Vd muy attos. y afmos. 


A aman. el texto. WordStar pregunta si 
puede partir la sílaba. 


b) Variamos el margen izquierdo si- 
tuando el cursor en la columna que de- 
seamos poner dicho margen y pulsamos 
(ControlOL y (Escape) (o F2); observa- 
rá cómo varía la posición del margen. Es- 
tando éste ya fijo, se puede proceder a 
reformar el texto con (Control)B y si que- 


remos insertar una línea simplemente 
pulsamos (Intro). 


“O'L—— B:CIRCULAK PAG. 1 LIM 15 00L 01 INSENTAR SI 
44 MENU PANTALLA »PH—————— 
Ll plc Nerea | - Otros Memús - | 
feos Alos lC Centrar texto — ÍJ Justafic. no (Si1l (ese eo rai 


IR Pooer marg cho |S Poner espa. inealv Vari-Tabs no (SI)¡*J Ayuda “E Blog. | 
Íx Liberar márgenes! IN ay. guson no (Si1Í*0 Rápido *E Impr. | 
Í1 Pa. Me Borr. tabl - Cambiadores - [8 Guion aut sí (NO1|*0 Pantalla i 
IG tab párrafo — [VW trans.pal no (SIIÍD Ver Impr. no (SI)ÍESPACIO le ¿leva | 
IP Regleta des. Lin. IT Regl.lín no (SILÍP Sep. pág. no (SI5Íal Menó Princspal. | 
"¿MARGEN 12QUIERDO COL. (BSCAPB:co!. de cursor)? 
A 


Como ya le comunicamos en puestra anterior, techada el 
día de ayer, y por la presente le rogamos Dos diga 51 sería 
posible su asistancia a las conferencias que van 3 Lener 
lngar en madrid los días 26 y 27 del mes de Marzo, y en caso 
afirmativo Je rogamos nos comunique si Vd. podría encargarse 
del desarrollo de la conferencia sobre el tema *La polución 
en España", enel que, sin duda, se encuentra Vd entre las 
personas con más soluciones. 

Esperando con interés sus noticias a vuelta de correo, y no 
dudando que esta carta será prologo de futuras relaciones 
comerciales a raíz del interés que van a despertar estas 


[A Reformando el texto. Con cambio del mar- 
gen. 


Podemos añadir para dar vistosidad a 
la carta algunos atributos como subrayar 
una parte del texto ((')S) o poner en ne- 
grilla o doble pasada (6 JB). Por otra 
parte, antes de la impresión releemos el 
texto para corregir posibles errores 
(ejemplo: donde pone madrid hay que 
poner Madrid). 


B:CIRCULAR PAG. 1 LIM. 13 COL 31 INSERTAR Si 
ria MEMU PRINCIPAL A IATA: 
| Movimiento de Cursor — | -Borrar-¡ — Varios — | - Otros Menús - | 
les car. nada. *D car. deba. [*G car. | “I Tab. *B Recomp | (solo desde Pral1l 
*A pal. 12da. *P pal. deba. [DEL car 12l “Y INSENTAR SI/NO | *Y Ayuda 

“E lín arr. “X lío abajo¡*T pal débÍ *L us. /sust. otra | “0 Rápido | 
Do pestazar: - 1 *Y Línea | RETORNO fin párratol *0 Pantalla | 
12 línea abajo *Y línea arrl | +k Insertar RETORNO! *X Bloques | 
*C pant. wr “A sant. abajo! | «y Cancelar comando! *P impresion — | 

O O 


Como ya le comunicamos en muestra anterior, fechada el 


día de ayer, y por la presente le rogamos nos diga 51 
sería posible su as1stancia a las conferencias que van a 
tener lugar *Sen Madrid los días 26 y 21 del mes de Marzo*S, y 
eo caso afirmativo le rogamos nos comunique s1 Vd podría 
encargarse del desarrollo de la conferencia sobre el tema 
*B*La polución en España**B, en el que, sin duda, se encuentra 
Vd entre las personas con más soluciones. 


Esperando con interés sus noticias a vuelta de correo, y 
no dudando que esta carta será prologo de futuras rela- 
ciones comerciales a raíz del interés que van 3 despertar 


Anos características introducidas en el 
texto. 


a APLICACIONES 


Como ya le comunicamos en nuestra anterior, fechada el 
día de ayer, y por la preseote le rogamos nos diga si 
sería posible su asistancia a las conferencias que van a 


en caso afirmativo le rogamos nos comunique si Vd podría 
encargarse del desarrollo de la conferencia sobre el tema 
“La polución en España", en el que, sin duda, se encuentra 
Vd entre las personas con más soluciones. 


Esperando con interés sus noticias a vuelta de correo, y 
no dudando que esta carta será prologo de futuras rela- 
ciones comerciales a raíz del interés que van a despertar 
estas seslones, nos repetimos a Vd my attos. y afmos. 
ASOCIACION AIRE AGRADABLE 


P.?. 


[A ss0ecro que tendra la carta. Se consigue 
1 verlo en pantalla con (ControlJOD. 


Utilización del MailMerge 


MailMerge fue diseñado para permitir 
a los usuarios automatizar sus listas de 
correos, así como realizar una composi 
ción de ficheros. 

Continuando con nuestro ejemplo, va- 
mos a aplicar al mismo el programa Malil- 
Merge. 

Para empezar, se transforma el docu- 
mento que estábamos escribiendo. Se 
sustituyen las palabras que deberán ser 
variadas para cada destinatario por un 
identificador o nombre de variable que 
se encierra entre símbolos K. 


Estimado Sr. ANOMBREA: 


Como ya le comunicamos en muestra anterior, fechada el 
día ADIAA, y por la presente le rogamos nos diga si sería 
posible su asistancia a las conferencias que van a tener 
lugar. eo Madrid los días 26 y 21 del mes de Marzo, 1 en 
caso afirmativo le rogamos nos comunique si Vd podría 
encargarse del desarrollo de la conferencia sobre el tema 
SATA", enel que, sin duda, se encuentra Vd. entre las 
personas con más MADJETIVOA. 


Esperando con interés sus noticias a vuelta de correo, y 
po dudando que esta carta será prologo de futuras rela- 
ciones comerciales a raíz del interés que van a despertar 
estas sesiones, nos repetimos a Vd muy attos. y afmos. 
ASOCIACION AIRE AGRADABLE 


PP. 


Nuevo aspecto de la circular para la utiliza- 
3 ción de MailMerge. 


Se introducen unas instrucciones de 
punto propias de MailMerge (WordStar vi- 
sualiza una M en la columna de señales). 


B:CIRCULAR PAG. 1 LIM. 1 COL Ol ISERTAR SI 


1 
44 MERV PRINCIPAL AD 
Movimiento de Cursor | -Borrar- | — Varios — | - Otros Memós - 


*S car. 12da. *D car, dcha. |*G car. | *l fab *B Recomp | (solo desde Pral) 
*% pal. 12da. *P pal. dcha. [DEL car 12| *Y INSERTAR SI/NO | *J Ayuda 


“8 lín. arr. *X lío. abajol*? pal dch| *L Bus. /sust. otra | *Q Rápido 1 
ñ 


| 
*C pant. arr *R pant. abajo * Cancelar comando! *P Impresion | 
A A A Ñ 


Como ya le comnicamos en ouestra anterior, fechada el 
día ADIAA, y por la presente le rogamos nos diga si sería 
posible su asistancia a las conferencias que van a tener 


lA Instrucciones de punto para el documento al 
que vamos a aplicar MailMerge. 


El significado de las instrucciones de 
punto es el siguiente: 


1) .rp indica a MailMerge que deberá 
repetir la impresión. 

2) .df indica en qué fichero se van a 
encontrar los datos. 

3) .rv indica las variables que se de- 
ben leer. 

4) .pa indica que la página ha termi- 
nado, se sitúa al final. 


Una vez introducidas estas modifica- 
ciones podemos salvar el documento 
CIRCULAR utilizando el comando (Con- 
trol)KD que nos devuelve al menú sin ar- 
chivo. 

Queda crear el fichero de datos con 
toda la información necesaria para cada 
una de las cartas. Este es un fichero sen- 
cillo que se crea usando el modo NON- 
DOCUMENT de WordStar y que consiste en 
una serie de registros. Cada registro es 
una línea terminada al pulsar (Intro). 
Cada campo del registro se encuentra 
separado de los adyacentes por comas. 

Creamos en nuestro caso el fichero 
CARTAS.DTA, para ello pulsamos desde el 
menú sin archivo N que nos permite abrir- 
lo pidiéndonos el nombre del mismo 
modo que si se tratara de un documento 
normal. 

introducimos los registros, sin olvidar 
que es necesario dar a (Intro) cada vez 


que termina uno. Salvamos el fichero con 
(ControNKD para acceder nuevamente 
al menú principal. 


Baroja, de ayer, La polución en Espada, soluciones 
D Mariano Bearlintz, 26 de éste mes, Distorsión del ruido en la atmosfera, 101c1ativas 
Cantero, de ayer, Delegaciones de aire, conocimientos 


Bodemer, 25 de éste mes, Registros axfisiantes, perspectivas. 


Fichero de datos para la circular. 


Ya podemos ejecutar MailMerge; nos 
pide el nombre del fichero con el que 
queremos que actúe, si presionamos (In- 
tro), sale en pantalla una lista de los po- 
sibles, introducimos el nombre del nues- 
tro, CIRCULAR, y respondemos a las pre- 
guntas necesarias para la impresión. Ya 
tenemos la circular preparada para ser 
enviada a los diferentes destinatarios. 


Continúa con otros ejemplos el estudio 
del WordStar; como puedes comprobar 
te va a resultar de gran ayuda en tu tra- 
ba jo y en tu correspondencia. Si profun- 
dizas más verás cómo existen otras ven- 
tajas y trucos que cada vez te serán más 
útiles. 


Bstimado Sr. Bodemer: 


Como ya le comunicamos en nuestra anterior, fechada el 
día 25 de éste mes, y por la presente le rogamos nos diga 


s1 sería posible su asistancia a las conferencias que van 


y en caso afirmativo le rogamos nos comunique si Vd 
podría encargarse del desarrollo de la conferencia sobre 
el tema "Registros axfisiantes", enel que, sin duda, se 
encuentra Vd. entre las personas con más perspectivas... 


29 de Pebrero de 1981 


Estimado Sr. D. Mariano Bearlintz: , 


Como ya le comunicamos en muestra anterior, fechada el 
día 26 de éste mes, y por la presente le rogamos nos diga 
s1 sería posible su asistancia a las conferencias que van 

ses de Ñarzo, 
y en caso afirmativo le rogamos nos comunique si Vd 
podría encargarse del desarrollo de la conferencia sobre 
el tema "Distorsión del ruido en la atmósfera", en el que, 
sin duda, se encuentra Vd entre las personas con más 
AnICIALivas. : 


“ 


Bstumado Sr. Baroja: 


Como ya le comunicamos en muestra anterior, fechada el 
áía de ayer, y por la presente le rogamos nos diga s1 
sería posible su asistaocia a las confereocias que van a *' 
tener lugar eo Madrid los días 26 y 21 del mes de Narzo, y 
eo caso afirmativo le rogamos nos commique s1 Vd podría 
encargarse del desarrollo de la conferencia sobre el tema 
*La polución eo España", en el que, sin dada, se encuentra 
VA entre las personas con más soluciones. 


Esperando con interés sus noticias a vuelta de correo, y 
mo dudando que esta carta será prologo de futuras rela- 
ciones comerciales a raíz del interés que van a despertar 
estas sesiones, DOS repetimos a Vd muy attos. y afmos. 


fstumado Sr. Cantero; 


»? 
Como ya le comunicamos en nuestra anterior, fechada el 
día de ayer, y por la presente le rogamos nos diga sl 
sería posible su asistancia a las conferencias que van a 


en caso afirmativo le rogamos nos comunique si Vd podría 
encargarse del desarrollo de la conferencia sobre el tema 

de asre*, enel que, sin duda, se encuentra 
VA entre las personas con más conocimientos. 


Esperando con interés sus noticias a vuelta de correo, y 
mo dudando que está carta será prologo de futuras rela- 
ciones comerciales a raíz del interás que van a despertar 
estas sestones, nos repetimos a Vd muy attos. y afmos. 


Resultado final de la aplicación de 


MailMerge. 


PASCAL 


UANDO escribimos el 
programa que dibu- 
jaba figuras, lo hici- 
mos siguiendo más o 
menos la técnica de- 
nominada «de refina- 
miento gradual», es 
decir, descompo- 
niendo primero el problema en sus par- 
tes principales y analizando luego cada 
una de estas partes por separado para 
descomponerlas a su vez en tareas más 
sencillas. Así, teníamos un primer esque- 
ma del programa como éste: 


Repetir lo siguiente... 


4. Borrar la pantalla. 

2. Preguntar qué tipo de figura se de- 
sea. 

3. Preguntar de qué tamaño. 

4. Dibujar la figura deseada. 

5. Preguntar si se desea seguir. 

. hasta que no se desee seguir. 


A su vez, «dibujar la figura deseada» 
era aproximadamente asi»: 


— Si se desea un cuadrado entonces: 
Pintar un cuadrado. 
pero si no, entonces: 
— Si es una pirámide lo deseado: 
Pintar una pirámide. 
Y si tampoco es una pirámide: 
Pintar un rombo. 


El proceso de pintar una pirámide, por 
ejemplo, se podría descomponer aún 
más. 

Como culminación de este proceso, 
hubo que juntar todos los pasos sencillos 


PROCEDIMIENTOS Y FUNCIONES 


en que llegamos a descomponer el pro- 
blema para construir el programa defini- 
tivo. 

Si, teniendo un programa terminado, se 
descubren errores o se desea modificar 
alguna de sus partes integrantes, hay dos 
opciones: o bien se vuelve a repetir todo 
el proceso de descomposición y poste- 
rior integración, o bien se introducen los 
cambios directamente en el programa 
ya escrito; con programas tan cortos 
como los que llevamos hechos hasta el 
momento, cualquiera de los dos méto- 
dos es factible. 

No es ésta la situación, sin embargo, 
cuando un programa es grande y com- 
plejo. Si optamos por la primera solución, 
desperdiciaremos una gran cantidad de 
trabajo ya hecho; por el contrario, si op- 
tamos por manipular el programa direc- 
tamente, como ya están todas las partes 
integradas, habrá que delimitar clara- 
mente el área afectada antes de introdu- 
cirlos cambios y comprobar que éstos no 
afectan a las otras partes. 

Esta tarea sería mucho más sencilla si 
el programa PASCAL reflejara los diferen- 
tes niveles de descomposición del pro- 
blema. Así, la parte principal del progra- 
ma se correspondería más o menos con 
el primer nivel de descomposición, indi- 
cando las diferentes fases del proceso. 
Luego, cada una de éstas estaría progra- 
mada por separado, constituyendo lo 
que denominaríamos «subprogramas». 

Al ejecutarse el programa, la parte 
principal iría utilizando a los diferentes 
subprogramas según fuera preciso. De 
esta manera, el punto 4 del esquema del 


último programa lo podríamos escribir 
así: 


if Tipo="C” then PintarCuadrado 
else 

if Tipo="P”? then PintarPiramide 

else PintarRombo; 


PintarCuadrado, PintarPiramide y Pin- 
tarRombo serían los nombres de los sub- 
programas donde ya sí estaría detallado 
lo que hay que hacer para pintar cada fi- 
gura. En caso de querer hacer algún 
cambio en la forma de dibujar, por ejem- 
plo, los rombos, no habría que tocar nada 
del programa principal; todos los cam- 
bios serian exclusivamente en el subpro- 
grama. 


A su vez, el subprograma podría hacer 
referencia de manera análoga a otros 
subprogramas de nivel inferior que reali- 
zaran alguna de sus partes constitutivas. 


Todo esto es posible en PASCAL me- 
diante el uso de PROCEDIMIENTOS y FUN- 
CIONES, que son conjuntos de instruccio- 
nes a lo que se les ha dado un nombre o 
identificador. Para ser utilizados, basta 
con escribir éste como una instrucción 
más, o sea, separado de las demás por 
punto y coma. 


Cuando se ejecuta el programa, al lle- 
gar a un nombre de procedimiento o fun- 
ción se pasa a ejecutar su conjunto de 
instrucciones. Tras ellas se siguen ejecu- 
tando las que vengan a continuación del 
nombre. 


La única diferencia entre procedimien- 
tos y funciones es que éstas últimas ade- 
más devuelven un dato (un número, un 
carácter...) para que lo utilice el progra- 
ma principal. 


En PASCAL existen procedimientos y 
funciones previamente programados. Un 
procedimiento que ya conocemos es 
PAGE (O CLRSCR). Cuando ponemos: 


page; £ o bien CLRSCR > 
write (”Se acaba de borrar 
la pantalla.”); 


al ejecutarse PAGE, realmente se ejecu- 
ta un conjunto de instrucciones con ese 
nombre que sirven para borrar la panta- 
lla. Tras ello, se ejecutaría la siguiente ins- 
trucción, WRITE. 

También hemos utilizado la función 
ODD. Está formado por un conjunto de 
instrucciones que, al estar ya prepara- 
das, no tienen que escribirse. A estas ins- 
trucciones se les suministra un dato de 
tipo INTEGER y, según que sea impar o no, 
devuelven el valor de tipo Boolean TRUE 
O FALSE, respectivamente. El dato a ana- 
lizar se escribe a continuación del nom- 
bre de la función, entre paréntesis, y el 
dato Boolean devuelto pasa a «ocupar», 
por decirlo de alguna manera, el sitio del 
nombre de la función. Por ejemplo: 


N:= 2; 
A:= odd (N+1); 


Al llegar al nombre ODD se pasa a eje- 
cutar su conjunto de instrucciones, a las 
que se transfiere el número 3. Estas los 
analizan y devuelven TRUE, por lo que en 
ese momento esa instrucción equivaldría 
a A:= true. 

Ejemplos de procedimientos a los que 
se transfieren datos para procesar son 
WRITE y READ, y funciones ya estudiadas 
son PRED, SUCC y ORD. 

Otra ventaja de los procedimientos y 
funciones, casi tan importante como la 
de poder estructurar los programas, es la 
de permitir hacerlos más cortos. 

En efecto, supongamos que hemos pre- 
parado una secuencia de instrucciones 
para, por ejemplo, pedir la edad de una 
persona controlando que se teclee una 
edad correcta. Si al escribir el programa 
resultase que hay que leer las edades de 
varias personas, no habría más remedio 
que repetir esas instrucciones para todos 
los casos necesarios. 

En lugar de eso, podríamos agrupar 
esas instrucciones como un procedi- 
miento de nombre, digamos, LeeEdad. 
Entonces bastaría con escribir LeeEdad 
en todos los puntos del programa nece- 
sarios; además, habría que indicarle 
cada vez al procedimiento en qué varia- 
ble habría que guardar la edad leída. Por 
ejemplo: 


3 PASCAL 


LeeEdad (EdadPadre); 
) LeeEdad (EdadHijo); 


Como se ve, gracias a los procedimien- 
tos nos va a resultar posible escribir pro- 
gramas de una manera mucho más có- 
moda y, sobre todo, mucho más clara. 


O Cómo se escriben 
== procedimientos 


Los procedimientos se escriben des- 
pués de la zona de descripción de datos 
del programa, justo antes de la palabra 
reservada BEGIN que marca el comienzo 
de la zona de instrucciones. 

De esta manera, la estructura de un 
programa PASCAL quedaría: 


program NombreDelPrograma; 


Descripción de datos: 


program Contar; 


begin 
Presentacion; 


Despedida 
end. 


Al intentar compilar el programa se 
producirían errores, pues al buscar el 
compilador las descripciones de los pro- 
cedimientos no las encontraría. 

La descripción de un procedimiento 
comienza por la palabra reservada PRO- 
CEDURE seguida de su nombre, que pue- 


var Cuenta: integer; 


for Cuenta:= 1 to 10 do writeln (Cuenta:3); 


Procedimientos y funciones. 


begin 


Instrucciones del programa. 


De las distintas partes del programa, 
sólo la cabecera y las palabras BEGIN y 
END con punto son obligatorias en todo 
caso. Las diferentes partes se separan 
entre sí por medio de punto y coma. 

Supongamos que queremos escribir un 
programa que cuente del 1 al 1, tendría 
la siguiente estructura: 


4. Presentar un mensaje en la pantalla 
indicando lo que hace. 


2. Para CUENTA valiendo desde 4 has- 
ta 10 hacer: 


— Presentar el valor de CUENTA en 
la pantalla. 
— Pasa a la siguiente línea. 


3. Presentar un mensaje de despedida. 
A modo de ejemplo, vamos a escribir 


los puntos 1 y 3 como procedimientos. 
Tendriamos un programa como: 


de ser cualquier identificador válido. Esto 
es lo que se denomina CABECERA DEL 
PROCEDIMIENTO, que debe ir separada 
de lo siguiente por un punto y coma. 
Además, todo procedimiento consta de 
las palabras reservadas BEGIN y END que 
sirven para enmarcar sus instrucciones. 


Las descripciones de los diferentes pro- 
cedimientos y funciones se escriben unas 
detrás de otras, separándose la cabece- 
ra de uno de la palabra END del anterior 
mediante un punto y coma. 


program Contar; 


begin 
end; 


begin 
end; 


begin 
Presentacion; 


Despedida 
end. 


Al ejecutarse este programa, como la 
descripciones de los procedimientos no 
constan de ninguna instrucción, es como 
si hubiéramos puesto «no hacer nada», 
con lo que sólo saldrá la cuenta en la 


program Contar; 


begin 
clrscr; 


end; 


begin 
end; 


begin 
Presentacion; 


Despedida 
end. 


Por supuesto, las instrucciones utiliza- 
das en los procedimientos van separa- 
das entre sí por punto y coma, y pueden 
ser de cualquiera de los tipos estudia- 
dos. 


var Cuenta: integer; 


procedure Presentacion; 


procedure Despedida; 


for Cuenta:= 1 to 10 do writeln (Cuenta:3); 


var Cuenta: integer; 
procedure Presentacion; 
(k o PAGE Xx) 
writeln (”Esto cuenta de 1 a 10.”); 
writeln (*Y si no se lo creen, miren:”) 
procedure Despedida; 


writeln (”Yo casi nunca miento. Adiós.”) 


for Cuenta:= 1 to 10 do writeln (Cuenta: 3); 


Por tanto, para que el compilador no 
produjera errores bastaria con poner: 


pantalla. Nuestra intención es que los 
procedimientos saquen unos mensajes y, 
por tanto, deben tener escritas las ins- 
trucciones necesarias para ello, con lo 
que el programa definitivo quedaría así: 


Estructura 
de un procedimiento 


A los procedimientos y funciones se les 
conoce en general como subprogramas, 


se PASCAL 


o sea, programas de orden menor que 
son utilizados por otros de orden superior. 

Si recordamos cómo es la estructura de 
un programa, observaremos que la es- 
tructura de los procedimientos del ejem- 
plo anterior es muy similar. En ambos ca- 
sos existe una cabecera que comienza 
por las palabras reservadas PROCEDURE o 
PROGRAM, según el caso. Tras la cabece- 
ra viene el conjunto de instrucciones en- 
marcado por las palabras BEGIN y END, 
habiendo un punto a continuación de 
END en el caso de los programas para in- 
dicar el final absoluto y un punto y coma 
en los procedimientos para separarlos 
de lo que venga a continuación. 

Pues bien, el paralelismo va mucho 
más lejos. Los procedimientos pueden te- 
ner su propia zona de definición de da- 
tos con variables para su uso exclusivo. 
Incluso pueden tener a su vez sus propios 
procedimientos y funciones. La estructu- 
ra quedaría, por tanto, así: 


procedure NombreDelProcedimiento; 
pS Descripción de o 


gra 


[const ... 


Sus procedimientos y 
funciones. 


begin 


Es decir, son como programas PASCAL 
escritos dentro del programa principal. 

Tanto las constantes como las varia- 
bles, procedimientos y funciones defini- 
dos dentro de un procedimiento se de- 
nominan LOCALES de ese procedimiento 
y son para su uso exclusivo. Solamente 
pueden ser utilizados dentro de él (y de 
los propios procedimientos y funciones 
de éste). 

Sin embargo, todas las constantes y va- 
riables del programa principal siguen pu- 
diendo ser utilizadas por las instrucciones 
del procedimiento. 


ASIS es un sistema 
operativo multiusua- 
rio creado por la 
compañía Phase One 
en 1977, que está in- 
dicado, sobre todo, 
para mecanizar ta- 
reas de gestión de 
empresas y oficinas de pequeño y me- 
diano tamaño. 

La primera versión de OASIS (llamada 
OASIS 8, que es la que vamos a tratar), se 
diseñó para funcionar en equipos basa- 
dos en el microprocesador Zilog 2-80, de 
8 bits, y ya hay otra versión llamada 
THEOS OASIS 16, para equipos con micro- 
procesador de 16 bits, tales como Intel 
8088, 8086, 80286, Motorola 68000, etc. 


— Funciona en sistemas 
basados en el micropro- 
cesador Zilog 2-80. 

— Monotarea. 


— Funciona en equipos 
con microprocesadores 
de 16 bits, como Intel 
8088/8086 y Motorola 
68000. 


— Máximo de 16 usua- 
rios. — Multitarea (hasta 256 
trabajos a la vez). 
— Máximo de 32 usua- 
rios. 


SIS 16. 


lA Algunas diferencias entre OASIS y THEOS OA- 


u Estructura de OASIS 


Como ya se ha dicho, OASIS 8 es un sis- 
tema operativo multiusuario que funcio- 
na en sistemas con una capacidad míni- 
ma de memoria RAM de 64 Kbytes. Sopor- 


OTROS LENGUAJES 


SISTEMAS OPERATIVOS: OASIS 


ta hasta un máximo de 16 usuarios, pero 
no soporta el trabajo en modo multita- 
rea, es decir, no puede gestionar más de 
un proceso de forma concurrente. 


OASIS 


COMPILADORES 


csi 
(Intérprete de Cadenas de Comandos) 


A Partes componentes del sistema operativo 
OASIS. 


OASIS 8 se puede dividir en tres gran- 
des partes: 


1. El núcleo del sistema. Tiene una 
ocupación de memoria RAM entre 16 y 
32 Kbytes. Sus funciones más importantes 
son las siguientes: 


— Gestionar y planificar la memoria 
del sistema, de manera que realiza una 
división de la misma, asignando a cada 
tarea un “banco de memoria”. 

— Distribuir los recursos entre todos los 
usuarios. Asigna el tiempo de utilización 
del procesador a cada uno de los traba- 
jos a realizar “simultáneamente”, de 
modo que resulte transparente a cada 
usuario, y éstos tengan la “ilusión” de dis- 
poner de un sistema independiente para 
cada uno. 


so OTROS LENGUAJES 


— Gestionar la entrada y salida de da- 
tos. 

— inicializar los dispositivos periféri- 
cos. 

— Detección y tratamiento de errores. 


2. El CSI (Intérprete de Cadenas de 
Comandos). Su misión es realizar el con- 
trol de acceso al sistema, control de ac- 
ceso a los programas de usuario y ejecu- 
ción de procedimientos de entrada y sa- 
lida. Cuando se introduce un comando 
en el sistema, el CSI busca en el disco el 
programa cuyo nombre coincida con el 
comando introducido, transfiriéndole el 
control para su ejecución. En caso de no 
encontrar ningún comando o programa 
cuyo nombre coincida con el introduci- 
do por el usuario, se visualiza en panta- 
lla un mensaje de error. 


El CSI es similar al CCP de CP/M o al 
COMMAND.COM de MS/DOS. 


3. Utilidades para el control de proce- 
sos y procesadores de lenguajes. Entre 
estos últimos se encuentra una versión de 
BASIC (en versión intérprete y en compi- 
lador), especialmente preparada para 
el desarrollo de programas de gestión. 
Asimismo, se dispone de compiladores 
para los lenguajes Pascal y COBOL. 


Para el control de procesos, OASIS 8 
dispone de un lenguaje especial llama- 
do EXEC. En esencia, permite hacer “pro- 
gramas de comandos”, de manera que 
se ejecutan como si fueran introducidos 
uno a uno por teclado. Tiene, además, la 
posibilidad de incluir ejecución condi- 
cional y ejecución iterativa. 


TAREA TAREA 
3 4 


[Av de las diferencias más grandes entre 
OASIS-8 y OASIS-16 es la capacidad multita- 


rea de este último. 
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